Вычислите сумму четных чисел от 1 до 50 3-мя способами

первый

var

   a : integer := 1;

   s : integer;

begin

   while a lt;= 50 do begin

       if a mod 2 = 0 then s += a;

       a += 1;

   end;

   writeln('s = ', s);

end.

2-ой

var

   a : integer := 1;

   s : integer;

begin

   repeat

       if a mod 2 = 0 then s += a;

       a += 1;

   until a gt; 50;

   writeln('s = ', s);

end.

третий

var

   s : integer;

begin

   for var a := 1 to 50 do if a mod 2 = 0 then s += a;

   writeln('s = ', s);

end.