1. Написать программу нахождения суммы чисел от 1 до 24. 2 написать программу печати трех чисел, выведенных с клавиатуры, в порядке возрастания

1)

var

i, s: integer;

begin

for i : = 1 to 24 do s : = s + i;

writeln (s) ;

end.

2)

var

a, b, c : integer;

procedure swap (var a, b : integer) ;

var k : integer;

begin

k : = a; a : = b; b : = k;

end;

begin

readln (a, b, c) ;

if a > b then swap (a, b) ;

if a > c then swap (a, c) ;

if b > c then swap (b, c) ;

writeln (a, ' ', b, ' ', c) ;

end.