Дано целое число в диапазоне 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.