Помогите написать задачу на языке Паскаль:

Даны действительные числа a, b, c, d. Если ac>d, то каждое число заменить средним арифметическим всех значений. В противном случае все числа заменяются своими квадратами

Var a, b, c, d, sr:real;

begin

read (a, b, c, d) ;

sr: = (a+b+c+d) / 4;

if (a
begin

a:=d;

b:=d;

c:=d;

end

else

if (a>b) and (b>c) and (c>d) then

begin

a:=sr;

b:=a;

c:=a;

d:=a;

end

else

begin

a*=a;

b*=b;

c*=c;

d*=d;

end;

write (a,' ', b,' ', c,' ', d) ;

end.

Var

a, b, c, d, sr: real;

begin

read (a, b, c, d) ;

sr : = (a + b + c + d) / 4;

if (a < b) and (b < c) and (c < d) then

begin

a : = d;

b : = d;

c : = d;

end

else if (a > b) and (b > c) and (c > d) then

begin

a : = sr;

b : = sr;

c : = sr;

d : = sr;

end

else

begin

a : = a * a;

b : = b * b;

c : = c * c;

d : = d * d;

end;

write (a, ' ', b, ' ', c, ' ', d) ;

end.