9 lines
153 B
ObjectPascal
9 lines
153 B
ObjectPascal
var a, b: integer;
|
|
begin
|
|
writeln('îëÿ, êàòÿ');
|
|
Readln(a, b);
|
|
if a < b then writeln('îëÿ')
|
|
else if a=b then writeln('Îäèíàêîãî')
|
|
else
|
|
writeln('êàòÿ')
|
|
end. |