В паскале задачи решить (программу написать) 1) найти сумму элементов от А до Б 2)…

Program n1; Uses CRT; Var a,b,s,i: integer; beginwriteln ('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); readlnend.