Подсчитать количество нулевых элементов вектора x(10)

// pascalabc.net 3.1, сборка 1250 от 28.05.2016 begin   var x: =arrrandom(10,-2,3); x.println;   writeln('нулевых: ',x.where(x-> x=0).count) end. тестовое решение 2 -2 -2 0 0 1 0 2 0 1 нулевых: 4

без остатка нет

25: 2=12+1 клетка в остатке

грубо и сердито:

 

 

var c: longint;

begin

  read(c);

  c: =c mod 10;

  c: =sqr(c);

  writeln(c);

end.