Program chislo;var a:real;// Описание переменныхbeginwriteln('Введите число ');//Диалоговое окноreadln(a);if a>=0 then a:=a-8 else a:=a+6 ;// если а>=0 тогда а принимает значение а-8 иначе а принимает значение а+6writeln('Полученное число a = ',a);//вывод полученного числаend.