Нужно сделать программу по этому заданию. Паскаль. Дано число. Если оно положительно, то вычесть из него 8, в противном случае прибавить к нему 6. Вывести полученное число
Var x:real;beginreadln(x);if x>0 then writeln(x-8)else writeln(x+6);end.