Составить программку вычисления количества трехзначных чисел, которые при делении на

var

 i, c: Integer;

begin

 c := 0;

 for i := 100 to 999 do

   if i mod 5 = 2 then begin

     c := c + 1;

     Write (i, ', ');   // тут выводятся эти числа, если это не необходимо - удалите строчку

   end;

 WriteLn;

 WriteLn ('Результат = ', c);

 ReadLn;

end.

Program n_1;

var i, n: integer;

begin

 n:=0;

 for i:=100 to 999 do if i mod 5 = 2 then n:=n+1;

 writeln(n);

end.