//pascal
var A,B : integer;
begin
readln(A, B);
if A = B then
writeln('Числа равны.')
else
if(A > B) then
A *= 3
B *= 3;
writeln(A, ' ', B);
end;
end.
Объяснение:
//pascal
var A,B : integer;
begin
readln(A, B);
if A = B then
writeln('Числа равны.')
else
begin
if(A > B) then
A *= 3
else
B *= 3;
writeln(A, ' ', B);
end;
end.
Объяснение: