Найти сумму элементов принадлежащих промежутку от 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.

2*3=6

512*128*6=393216

393216: 1024=384кб

var i: integer;

s: string;

begin

  s: ="abcdefghijklmnopqrstuvwxyz";

  for i: = 1 to length(s) do

      writeln(s[i],' = ', ord(s[i]));

end.