Question

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

Answer 1

Var A, B, C, D: real;
begin
writeln ('Введите числа A,B,C,D');
readln(A,B,C,D);
if (A<=B) and (B<=C) and (C<=D) then begin
A:=D; B:=D; C:=D; end
else
    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.