Написать небольшой рассказ, сказку, сочинение про одно из агригатных состояний вещества

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.

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.