Найдите значение выражения x2y при х=1/2, у =16

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.