Найти сумму квадратов чисел натурального ряда от а до b используя цикл с параметром- Pascal(Паскаль)

program m1;
uses crt;
var a,b,i,s:integer;
begin
clrscr;
s:=0;
for i:=a to b do
inc(s,a);
writeln ('s=',s:2);
readln;
end.