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

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, то прибавляем к нему 8writeln(\'Ответ: \', m);           // выводим на экран строку с ответомend.