Составить программу на паскале. дан одномерный массив целых чисел из n элементов. найти и вывести номера элементов заканчивающихся цифрой 0.

// pascalabc.net 3.3, сборка 1555 от 21.10.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n=',50); a.println;   var s: =a.indexesof(x-> x mod 10=0);   if s.count=0 then writeln('нет элементов, оканчивающихся на 0')   else begin       write('номера элементов, оканчивающихся на 0: ');       s.select(i-> i+1).println       end end. примеры n= 12 -41 46 29 -13 -43 -21 48 43 41 -48 -19 -44 нет элементов, оканчивающихся на 0 n= 16 37 -48 39 32 -6 21 -48 34 6 12 -10 -15 40 -36 46 26 номера элементов, оканчивающихся на 0: 11 13

const n = 10;

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

i: integer;

begin

  for i: =1 to n do readln(a[i]);

  writeln;

  for i: =1 to n do 

  if a[i] mod 10 = 0 then writeln(i);

end.

var

  x: real;

begin

  readln(x);

writeln(x: 0: 0);

end.