Question

Написать программу, которая выводит сумму квадратов пяти целых положительных чисел
 Числа (как положительные, так и отрицательные) вводятся с клавиатуры

Answer 1

var n,k,t: integer;
begin
k:=0;
t:=0;
repeat
read(n);
if n>0 then
begin
k:=k+1;
t:=t+sqr(n);
end;
until
k>4;
writeln(t);
end.