Дано целое число в диапазоне 10-99.вывести строку название цифры на которую заканчивается данное число на языке(0-ноль.1-

Program abc;
var a,b:integer;
begin
readln(a);
b:=a mod 10 ;
if(b=0) then Writeln('Ноль') else
if(b=1) then Writeln('Один') else
if(b=2) then Writeln('Два') else
if(b=3) then Writeln('Три') else
if(b=4) then Writeln('Четыре') else
if(b=5) then Writeln('Пять') else
if(b=6) then Writeln('Шесть') else
if(b=7) then Writeln('Семь') else
if(b=8) then Writeln('Восемь') else
Writeln('Девять');
end.