Паскаль

[Кирилл38]

Даны числа a,b,c,если a<=b<=c, тогда все числа заменить их квадратами, иначе сменить знак каждого числа.

[VIK_aka_TOR]

readln(a,b,c);
if (a <= b) and (b <= c) then
 begin
  a := a * a;
  b := b * b;
  c := c * c;
  end
else 
  begin
  a := -a; b := -b; c := -c;
  end;