в паскале задачи решить (программу написать)

1) найти сумму элементов от А до Б

2) вывести все элементы от А до Б при любых значениях А и Б (целых)

Program n1;

Uses CRT;

Var a, b, s, i: integer;

begin

writeln ('Vvedite A i B') ;

readln (a, b) ;

If a>b then

for i:=b to a do

begin

writeln (i) ;

s:=s+i;

end

else

if b>a then

for i:=a to b do

begin

writeln (i) ;

s:=s+i;

end

else writeln ('ravny') ;

writeln ('Summa = ', s) ;

readln

end.