Нельзя преобразовать real к integer проверил раз 10 , не могу найти ! program lol; const n=20; var a: array [1..n] of real; s: real; i: integer; begin s: =0; for i: =1 to 10 do begin a[i]: =10*random-1*(-1); if a[i] mod 5 < > 0 then s: =s+a[i]; writeln('a[',i,']=',a[i]: 1: 2); end; writeln('s=',s: 1: 2); end.

Ошибка заключается в том, что тип объявленного массива А является "real". Числа типа "real" не имеют операцию "остаток от деления на число". (Строчка, где это проверяется в Вашей программе: "if A[i] mod 5 <>0 then S:=S+A[i];")