Пожалуйста посчитайте написать программу в pascal.Найдите сумму всех целых чисел [a;b]Заранее спасибо.

Var
   a,b:integer;
   S:real;
Begin
S:=0;
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
For b:= a to b do
    S:=S+b;
WriteLn('S = ',S);
End.