Даны числа A, B, C, D. Если A <= B <= C <= D, то каждое число заменить наибольшим из них; если A>B>C>D, то числа не изменять; в противном случае все числа заменить их квадратами. Программа на Pascal

Предыдущий
вопрос Следующий
вопрос

program ReplaceNumbers;

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

begin
writeln('Enter four numbers: ');
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