Паскаль: найти сумму и количество всех трехзначных чисел, кратных 100

Var   i,k,sum: integer;   begin   for i: =1 to 999 do     begin       if (i mod 100 =0) then         begin           inc(k);           sum: =sum+i;         end;   end;   writeln('количество = ',k);   writeln('сумма  = ',sum);   end.

 

program sred;   var

        n, i, sum : integer;

      mas: array[1..20] of integer;   af: real;   begin

          sum : = 0;

          n : = 20;           writeln('введите элементы массива');

          for i: =1 to n do       begin               readln(mas[i]);           sum : = sum + mas[i];       end;       af : = sum/n;       writeln (af); end.

  var i: integer;

begin

for i: =100 to 999 do if(i mod 6 =0) and (i mod 4 = 0) and (i mod 10 = 8) then write(i, ' ');

end.

 

{while}

var i: integer;

begin

  i: =100;

while i< =999 do begin

if( if(i mod 6 =0) and (i mod 4 = 0) and (i mod 10 = 8) then write(i, ' '); inc(i); end;

end.

 

 

  {repeat}

var i: integer;

  begin

i: =100;  

repeat

begin

  if(i mod 6 =0) and (i mod 4 = 0) and (i mod 10 = 8) then write(i, ' ');

inc(i); end;  

until i< 1000;

end.