Вычислять и выводить на экран члены арифметической прогрессии
до тех пор, пока очередной член прогрессии не окажется большим 50.
Первый член арифметической прогрессии равен 2, разность равна 5;

Program lab6_2;
  Var
     a1,a:real;
  begin
     a:=2;
     write('Vvedite chislo a=');
     readln(a);
     while a<50 do begin
       S:=S+x
       write('Vvedite chislo a=');
       readln(a);
 end;
   writeln('Progressia', a:3:3);
   readln;

Не могу никак разобраться что к чему в этой задаче.

пользуемся тегами !

uses crt;
const r=5;
var
   s : word;
begin
   s := 2;
   while(s+r<=50) do inc(s,r);
   writeln(s);
   readln
end.

?

Я понял.