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

Var a,b:integer;
begin
read(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.