9 lines
151 B
ObjectPascal
9 lines
151 B
ObjectPascal
var a, b: integer;
|
|
begin
|
|
writeln('1, 2');
|
|
Readln(a, b);
|
|
if a > b then writeln('1 ', a)
|
|
else if a=b then writeln('Ðàâíû ', a)
|
|
else
|
|
writeln('2 ', b)
|
|
end. |