Нужна помощь с программированием в Pascal.
Напишите программу на задачу:

"Дано действительные числа a,b,c . Если a>b>c , то числа оставить без изменений, в противоположном случае все числа заменить на их квадраты"

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018Внимание! Если программа не работает, обновите версию!1. Современное решениеbegin  var (a,b,c):=ReadReal3;  if (a>b) and (b>c) then else (a,b,c):=(a*a,b*b,c*c);  Println(a,b,c)end.Пример15.8 4.9 13249.64 24.01 169 2. А так, увы, все еще учат писать во многих школах...program Toska;  var  a,b,c:real;begin  Read(a,b,c);  if not ((a>b) and (b>c)) then begin    a:=a*a; b:=b*b; c:=c*c    end;  Writeln(a,' ',b,' ',c)end.