СОСТАВИТЬ Программку В ПАСКАЛЕ ПОЖАЛУЙСТА ПОМОГИТЕ!двум друзьям предки подарили по новому

Т.е во 2-ой день он проехал 150+20=170 км, в третий 170+20=190 км... а всего 150+170+190+... пока 2500 не набрал?

Тогда все просто...

Const
  s = 2500; пробег для обкатки
  n1 = 12;число дней, истраченное первым подростком

var
  s0, s2: real;
  n2: integer;

begin
  s0 := 150;
  n2 := 1;
  s2 := s0;
  while s2 lt; s do
  begin
    s0 := s0 + 20; каждодневный пробег
    s2 := s2 + s0;
    n2 := n2 + 1
  end;
  if n2 gt; n1 then Writeln('2-й ребенок окончил обкатку позже на ', n2 - n1, ' дн.') 
  else if n2 = n1 then Writeln('Оба подростка окончили обкатку сразу')
  else Writeln('2-й подросток завершил обкатку раньше на ', n1 - n2, ' дн.')
end.

Решение:
2-й подросток окончил обкатку ранее на 1 дн.