Найти сумму квадратов целых чисел от 1 до 5 — Pascal(Паскаль)

uses crt;
var
s,i:integer;
 
begin
clrscr;
i:=5;
s:=0;
while i>0 do
begin
s:=s+i*i;
i:=i-1;
end;
writeln('Сумма квадратов чисел от 1 до 5 равна - ',s);
readln;
end.