составить программу для вычисления суммы квадратов чисел от 1 до 15. Функция возведения в квадрат sqr();
Var , , : ;
Begin
:=0;
For := to do
Begin
;
;
End;
Writeln(' =', );
End.
Там, где пробелы, вставить что нужно

спасибо)

Var i,s,x:integer;;Begins:=0;For i:=1 to 15 doBeginx:=sqr(i);s:=s+x;End;Writeln('suma =',s );End.2) второе решение Var i,s,x:integer;;Begins:=0;For i:=1 to 15 do s:=s+sqr(i);Writeln('suma =',s );End.