Информатика 23 ! pascal написать программу, которая сложит все натуральные числа от a до b. например от 46 до 98.

Var
i,a,b,s:integer;
begin
 write('Write a: '); readln(a);
 write('Write b: '); readln(b);
 s:=0;
 for i:=a to b do
  s:=s+i;
 writeln(s);
end.