Pascal - составление программ (образец решения)

Пример 1. С клавиатуры введите двузначное число а. Вычислите и выведите на экран значение выражения     , где х - последняя цифра данного числа.

 Program P1;

 Var a,x:Integer; r:Real;

 Begin

    Write('Введитечисло='); Readln (a);

    x:=a mod 10;

    r:=2/abs(x-2*x);

  Writeln('Ответ:',r);

 End.