Составить программу нахождения суммы чисел от 10 до 20 и вывода их на экран, ! это в паскале!

Program summa; 
var i,s:integer; 
begin
s:=0; 
for i:=10 to 20 do 
s:=s+sqr(i); 
writeln(s); 
end.