Question

Составьте программу нахаждения суммы квадратов натуральных чисел от 15 до 25 . Пожалуйста помогите

Answer 1

program p1;
uses crt;
var a,b,i:integer;
begin
for i:=15 to 25 do begin
a:=a+i*i;
b:=i*i;
writeln('Сумма:',a,'(квадрат числа :',i,'=',b,')');
end;
write(a);
end.