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

Паскаль,пжл!!!

var A, B, C, D: real;beginwriteln ('Введите числа A,B,C,D');readln(A,B,C,D);if (A<=B) and (B<=C) and (C<=D) then beginA:=D; B:=D; C:=D; endelse    if not ((A>B) and (B>C) and (C>D)) then begin    A:=A*A; B:=B*B; C:=C*C; D:=D*D; end;writeln('Результат:', A:2:2,' ',B:2:2,' ',C:2:2,' ',D:2:2);end.