Дано целое число, если оно является положит, то вычесть из него 10, или отриц, то прибавить к нему 8, или 0 то заменить его на 6. нужно сделать программу по этому заданию. Паскаль

var

m : real; / / объявляем переменную, типа - целое число

begin

writeln ('Введите целое число:'); / / выводим на экран текстовую строку

readln (m); / / вводим с клавиатуры число

if (m > = 0) then / / условие выполняется, если введенное число больше либо = 0

begin

If (m > 0) then / / если введенное число больше 0, то вычитаем из него 10

m: = m - 10

else / / если введенное число равно 0, то заменяем его на 6

m: = 6

end

else / / условие выполняется, если введенное число меньше 0

m: = m+8; / / если введенное число меньше 0, то прибавляем к нему 8

writeln ('Ответ: ', m); / / выводим на экран строку с ответом

end.