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