Домашние задание по информатике 9 класс

Попробуйте это. program task; var a, b, c: integer; begin write('Enter a, b, c: '); readln(a, b, c); if (a c) then begin a := a; b := a; c := a; end else begin a := -a; b := -b; c := -c; end; writeln('Result: ', a, ' ', b, ' ', c); readln; end.