Сост. программу. вычислить сумму целых числе на отрезке [a, b], где a и b вводятся с клавиатуры. примечание: решить с использыванием цикла)

Prigram t1;
Var a,b,s,i:integer;
Begin
S:=0;
Read (a,b);
For i:=a to b do
S:=s+1;
Write (s);
End.