Найдите сумму квадратов всех целых чисел от 1 до 15 Дано натуральное число. Определите...

Question

Найдите сумму квадратов всех целых чисел от 1 до 15
Дано натуральное число. Определите количество цифр в нём

Answer 1

program kvadrati;

var i,x:integer;

begin

for i:=1 to 15 do begin

x:=sqr(i);

writeln(x);

end;

end.

---