Найти сумму квадратов 10 чисел, введенных с клавиатуры

program test;
var i,j,s:integer;
begin
writeln('Vvedite tsifrs:');
for i:=1 to 10 do
begin
write('tsifra ',i,' ');
readln(j);
s:=s+j*j;
end;
writeln('Suma=',s:2);
readln
end.

program test;
var i,s:integer;j:real;
begin
writeln('Vvedite tsifrs:');
for i:=1 to 15 do
begin
write('tsifra ',i,' ');
readln(j);
if frac(j)=0 then
s:=s+1;
end;
writeln('Vsego=',s:2);
readln
end.

s:=0;

var a:array[1..10] of integer;
s:=0,i: integer;
begin
writeln('vvedite chisla');
for i:=1 to 10 do
begin
readln(a[i]);
s:=s+a[i]*a[i]
end;
writeln('summa=', s:5:3)
end.

program test;
var i,s:integer;j:real;
begin
writeln('Vvedite tsifrs:');
for i:=1 to 15 do
begin
write('tsifra ',i,' ');
readln(j);
if (j-int(j))=0 then {проверка если число минус целая его часть равна 0 тогда это целое число}
s:=s+1;
end;
writeln('Vsego=',s:2);
readln
end.

program test;
var i,s:integer;j:real;
begin
writeln('Vvedite chislo:');
readln(s);
write('Deliteli ');
for i:=2 to s do {начинаем с 2, на 1 это понятно. и если нет делителей то выводим само число}
if (s mod i)=0 then
write(i, ' ');
readln
end.