Практикума по языку паскаль. условный оператор. дано целое число. если оно является положительным, то прибавить к нему 1; в противном случае вычесть из него 2. вывести полученное число. входные данные: ввести целое число x (-1000< = x < =1000 выходные данные: вывести полученное число х.

Abc avb (avb)vc 000    0            0 001    0            1 010    1            1 011      1            1 100    1            1 101    1            1 110    1            1 111    1            1

//pascal var   ez: byte;   z: real; begin   writeln('1 - дециметр, 2 - километр, 3 - метр, 4 - миллиметр, 5 - сантиметр');   write('введите номер единицы измерения: '); readln(ez);   write('введите длинну: '); readln(z);   if ez = 1 then writeln(z/10, ' м');   if ez = 2 then writeln(z*1000, ' м');   if ez = 3 then writeln(z, ' м');   if ez = 4 then writeln(z/1000, ' м');   if ez = 5 then writeln(z/100, ' м');   readln;   end.