Найти сумму: 1^2+ 2 ^2 + 3^2 +… 10^2 — Pascal(Паскаль)

uses crt;
var s,i:integer;
begin
 clrscr;
 s:=0;
 for i:=1 to 10 do s:=s+i*i;
 writeln(s);
 readln;
end.