ОЧЕНЬ СРОЧНО НУЖНО СОСТАВИТЬ ПРОГРАММУ НА ПАСКАЛЕ: введите с клавиатуры три…

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); endelse writeln (a+b+c); end.