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

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