ОЧЕНЬ СРОЧНО НУЖНО СОСТАВИТЬ ПРОГРАММУ НА ПАСКАЛЕ:введите с клавиатуры три числа: А,В,С. если А > В > С > 0,то замените все числа их квадратамии выведите результаты на экран. если они отрицательные и не равные между собой,то каждое число замените наибольшим из них и выведите результаты. иначе ,найдите и выведите их сумму.
var a, b, c, m : integer; begin if (a > 0) and (b > 0) and (c > 0) and (a > b) and (b > c) then begin a := sqr (a); b := sqr (b); c := sqr (c); write (a, ' ', b, ' ', c); end else if (a < 0) and (b < 0) and (c < 0) and (a <> b) and (c <> a) and (b <> c) then begin m := a; if b > m then m := b; if c > m then m := c; a := m; b := m; c := m; write (a, ' ', b, ' ', c); end else writeln (a + b + c); end.
