var
K:array [1..5] of integer;
sum :integer;
begin
sum := 0;
for var i := 1 to 5 do begin
K[i] := random(100);
sum := sum + (K[i] * K[i]);
end;
write(sum);
end.
