program ReplaceNumbers;

var
A, B, C, D, maxNumber: integer;

begin
writeln${}^{\prime }Enterfournumbers{:}^{\prime }$;
readln$A,B,C,D$;

if (A <= B) and (B <= C) and (C <= D) then
begin
maxNumber := D;
A := maxNumber;
B := maxNumber;
C := maxNumber;
D := maxNumber;
end
else if (A > B) and (B > C) and (C > D) then
begin
// Do nothing
end
else
begin
A := A A;
B := B B;
C := C C;
D := D D;
end;

writeln('Result: ', A, ' ', B, ' ', C, ' ', D);

end.

// Пример работы программы:
// Вход: 2 4 5 7
// Выход: 49 49 49 49

// Вход: 9 8 6 1
// Выход: 81 64 36 1

// Вход: 3 3 1 2
// Выход: 9 9 1 4