Напишите программу для решения задачи. С2.Даны целые числа a,b,с.Если а≤b≤c,то все числа замените квадратами,если а>b>c,то каждое число замените наибольшим из них,в противном случае смените знак каждого числа. С2.По номеру месяца выдайте квартал,которому он принадлежит.

var a,b,c:integer;beginreadln(a,b,c);if (a<=b) and (b<=c) thenbegina:=a*a;b:=b*b;c:=c*c;endelse if (a>b) and (b>c) thenbeginif a<b then a:=b;if a<c then a:=c;b:=a; c:=a;end  else      begin        a:=a*(-1);        b:=b*(-1);        c:=c*(-1)      end;  writeln(a:4, b:4, c:4);end.