Посчитать сумму чисел от 30 до 60 в паскале

Program dlavas;
uses crt;
var
i, k, a, b:integer;
begin
readln(a);
readln(b);
k:=0;
for i:=a to b do
k:=k+i;
writeln(k);
readln;
end.
это будет работать для любых чисел