Написать программу ** ветвление ** языке программирования Паскаль​

Question

Написать программу на ветвление на языке программирования Паскаль​

Comments

Какую?

Answer 1

Программа перевода положительного числа в отрицательное, и на оборот

Var

a:integer;

Begin

Readln(a) ;

Begin

If a<0 then</p>

Write(a*-1) end;

Begin

If a>0 then

Write(a*-1) end;

End.