Помогите решить: 1. Написать программу нахождения суммы чисел…

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; beginreadln (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.