Найти и напечатать u = min{x+y, xy}

Var x,y,u:real;
function min(a,b:real):real;
begin
if a>b then min:=b else min:=a;
end;
begin
write('x=');read(x);
write('y=');read(y);
u:=min(x+y,x*y);
writeln(u);
end.

Program task1;
var  a, b, c, p, s :real;
begin
  readln(a,b,c);  if (a + b > c) and (a + c > b) and (b + c > a) then  begin    writeln('Могут быть сторонами треугольника');    p:= (a + b + c)/2;    s:= sqrt( p * (p - a) * (p - b) * (p - c) );    writeln('Площадь равна ',s);  end  else    writeln('Не могут быть сторонами треугольника');
end.

program task2;
var  a, b, c :real;  d :integer;
begin
  write('Введите числа: ');  readln(a,b);  write('Введите номер действия: ');  readln(d);  case d of    1: c:= a + b;    2: c:= a - b;    3: c:= a * b;    4: c:= a / b;  end;  writeln(c);
end.

Const
  n = 20;

var
  a, p0, p1, pa: array[1..n] of integer;
  i, ip0, ip1, ipa: integer;

begin
  write('Введите ', n, ' элементов массива: ');
  for i := 1 to n do read(a[i]);
  writeln;
  ip0 := 0;
  ip1 := 0;
  ipa := 0;
  for i := 1 to n do
    if a[i] > 0 then
      if (a[i] mod 2) = 0 then begin
        ip0 := ip0 + 1;
        p0[ip0] := a[i]
      end
      else begin
        ip1 := ip1 + 1;
        p1[ip1] := a[i]
      end
    else begin
      ipa := ipa + 1;
      pa[ipa] := a[i]
    end;
  write('Положительные четные: ');
  for i := 1 to ip0 do write(p0[i]:4);
  writeln;
  write('Положительные нечетные: ');
  for i := 1 to ip1 do write(p1[i]:4);
  writeln;
  write('Остальные: ');
  for i := 1 to ipa do write(pa[i]:4);
  writeln
end.

Тестовое решение:

Введите 20 элементов массива: 3 8 -5 -8 3 0 4 12 -13 42 0 8 6 24 15 -9 47 18 53 -30

Положительные четные:    8   4  12  42   8   6  24  18
Положительные нечетные:    3   3  15  47  53
Остальные:   -5  -8   0 -13   0  -9 -30