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