, задание во вложении

напиши само ,я

стены, ученики, террористы(учителя : d), парты ии т.д.

разрушить : d,

5`120`000 бит =  640 000 байт = 625 кб

var  a: array [1..10] of integer;

n,i: integer;

begin

  {vvod massiva skopirovat suda}

  for i: = 1 to 10 do begin

      if a[i] mod 10 = 0 then

          n: =n+1;

  end;

  writeln(n);

end.