Выполнить действия A+B, где A=38, B=-45

Срочно!

написал такую программу:
var n:longint;
begin
read(n);
while n>10 do
begin
n:=n mod 10
end;
write(n);
end.


1)Напишите,что выведет эта программа при вводе числа 1984.
2)Приведите пример числа,при вводе которого программа выдаст верный ответ.
3)Найдите в программе все ошибки.

в паскале программу написать

а) Четные числа делит на 2 и результат выводит на экран
б) нечетные числа выводит на экран без изменений