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.
спасибо