РМ
Ренат Мухаметжанов
Вычисли сумму квадрата чисел от 1 до 9 (Pascal ABC )
Ксения Рыбакова, спасибо
Ксения Рыбакова, спасибо
begin writeln(9 * (9 + 1) * (9 * 2 + 1) div 6) end.
var
i,j:integer;
begin
j:=0;
for i:=1 to 9 do
begin
j:=j+sqr(i);
end;
write(j);
end.