ПОМОГИТЕ

Найти сумму квадратов всех целых чисел от 1 до 10. (цикл с предусловием)

program noname;

var

 i, s: integer;

begin

 i:= 1;

 s:= 0;

 while i < 11 do

 begin  

   s:= s + (i * i);

   Inc(i);

 end;  

 write ('Сумма: ', s);  

end.