Question

Дано 2 числа найти большее из них. В ДЕЛФИ

Answer 1

Var a, b: Integer;
begin
ReadLn(a, b);
if a>b then WriteLn(a)
else WriteLn(b);
end.
-------------------------
Это если консольное. Если графическое приложение - тогда приношу свои извинения.