Вычислите сумму квадратов всех элементов заданного массива X(N), за исключением элементов, кратных пяти.

uses crt;
var i,n: integer;
sum: longint;
x: array [1..100] of integer;
begin
Writeln('Количество элементов ');
Read (n);
sum:=0;
 for i:=1 to n do begin
 x[i]:=random (101);
 Write (x[i],' ');
 x[i]:=x[i]*x[i];
 If not (x[i] mod 5 = 0) then sum:=sum+x[i];
 end;
Writeln;
Writeln ('Summa = ',sum);
end.

uses crt;
var i,n,k: integer;
sum: longint;
x: array [1..100] of integer;
begin
Writeln('Êîëè÷åñòâî ýëåìåíòîâ ');
Read (n);
sum:=0;
For i:=1 to n do begin
 Readln (k);
 x[i]:=k;
end;
For i:=1 to n do write (x[i],' ');
For i:=1 to n do begin
 x[i]:=x[i]*x[i];
 If not (x[i] mod 5 = 0) then sum:=sum+x[i];
end;
Writeln;
Writeln ('Summa = ',sum);
end.

uses crt;
const n=random(20);
var x:array[1..n]of integer;i,s:integer;
begin
for i:=1 to n do
begin
x[i]:=random(50);
writeln(x[i]);
if x[i] mod 5<>0 then s:=s+sqr(x[i]);
end;
write('sum=',s);
end.