Найти большее из 2-х чисел
Вот решение на Pascal: program bolshee; uses crt; var a, b: integer; begin clrscr; writeln('Введите 2 числа: '); readln(a,b); if a>b then writeln(a) else writeln(b); end.