Найти сумму элементов принадлежащих промежутку от a до b , a и b вводятся с клавиатуры

var a,b,s,i: integer;

begin

readln(a,b);

if a> b then

for i: =b to a do

s: =s+i

else

for i: =a to b do

s: =s+i;

writeln(s);

end.

program dddd; uses crt; var a,b,c,i: integer; beginclrscr; c: =10; readln(a); while a < > 0 dobeginb: = a mod 10; if b < c then c: =b; a: = a div 10; end; writeln(c); readkey; end.