Question

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

Answer 1

ну это уже смешно) 

var
a,b : integer;
begin 
 readln(a); 
readln(b); 
if a > b then writeln(a) 
else writeln(b);
end.

Answer 2

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