Вопрос, который вызвал трудности

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

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

procedure F(var A,B,C,D : integer);
begin
if ((Abegin  
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;
end.