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

1. var

i, sum, n: integer;

begin

sum:= 0;

n:=24;

for i:=1 to 24 do

sum:= sum + i;

writeln (sum);

end.

2.  vara, b, c: integer;beginreadln (a, b, c);if (a>b) and (a<c) and (c<b)then writeln (c, b, a);if (a<b) and (a>c) and (c<b) then writeln (c, a, b);if (a<b) and (a<c) and (c>b) then writeln (a, b, c);if (a<b) and (a<c) and (c<b) then writeln (a, c, b);if (a>b) and (a<c) and (c>b) then writeln (b, a, c);if (a>b) and (a>c) and (c>b) then writeln (b, c, a);end.