Даны два числа. Вывести большее из них.

Даны три целых числа. Найти количество положительных и количество отрицательных чисел в исходном наборе.

ну это уже смешно) vara,b : integer;begin  readln(a);  readln(b);  if a > b then writeln(a)  else writeln(b);end.