Помогите написать задачу на языке Паскаль:
Даны действительные числа a, b, c, d. Если ab>c>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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.