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

Var a,b,c,d,m:real;z:boolean;Begin read(a,b,c,d); if (a<=b) and (b<=c) and (c<=d) then begin m:=max(max(a,b),max(c,d)); a:=m; b:=m; c:=m; d:=m; end else if (a>b) and (b>c) and (c>d) then z:=true else begin a:=a*a; b:=b*b; c:=c*c; d:=d*d; end; writeln(a,' ',b,' ',c,' ',d);End.