Var a,b,c:integer; begin readln(a,b); if a>b then writeln(a) else writeln(b); end.
ой переменная "с" там не обезательно
спасибо
не за что. За одно сам вспомнил)))) Обращайся если что))