шо

шо


program dwee;

var a,b: integer;

begin

readln(a);

b:=a mod 10;

if (a<20) then

case a of

 1: writeln('один');

 2: writeln('два');

 3: writeln('три');

 4: writeln('четрые');

 5: writeln('пять');

 6: writeln('шесть');

 7: writeln('семь');

 8: writeln('восемь');

 9: writeln('девять');

 10: writeln('десять');

 11: writeln('одиннадцать');

 12: writeln('двенадцать');

 13: writeln('тринадцать');

 14: writeln('четырнадцать');

 15: writeln('пятнадцать');

 16: writeln('шестнадлцать');

 17: writeln('семнадцать');

 18: writeln('восемнадцать');

 19: writeln('девятнадцать')

end;

if (a>=20) and (a<30) then

 case b of

 0: writeln('двадцать');

 1: writeln('двадцать один');

 2: writeln('двадцать два');

 3: writeln('двадцать три');

 4: writeln('двадцать четрые');

 5: writeln('двадцать пять');

 6: writeln('двадцать шесть');

 7: writeln('двадцать семь');

 8: writeln('двадцать восемь');

 9: writeln('двадцать девять')

end;

if (a>=30) and (a<40) then

 case b of

 0: writeln('тридцать');

 1: writeln('тридцать один');

 2: writeln('тридцать два');

 3: writeln('тридцать три');

 4: writeln('тридцать четрые');

 5: writeln('тридцать пять');

 6: writeln('тридцать шесть');

 7: writeln('тридцать семь');

 8: writeln('тридцать восемь');

 9: writeln('тридцать девять')

end;

if (a>=40) and (a<50) then

 case b of

 0: writeln('сорок');

 1: writeln('сорок один');

 2: writeln('сорок два');

 3: writeln('сорок три');

 4: writeln('сорок четрые');

 5: writeln('сорок пять');

 6: writeln('сорок шесть');

 7: writeln('сорок семь');

 8: writeln('сорок восемь');

 9: writeln('сорок девять')

end;

if (a>=50) and (a<60) then

 case b of

 0: writeln('пятьдесят');

 1: writeln('пятьдесят один');

 2: writeln('пятьдесят два');

 3: writeln('пятьдесят три');

 4: writeln('пятьдесят четрые');

 5: writeln('пятьдесят пять');

 6: writeln('пятьдесят шесть');

 7: writeln('пятьдесят семь');

 8: writeln('пятьдесят восемь');

 9: writeln('пятьдесят девять')

end;

if (a>=60) and (a<70) then

 case b of

 0: writeln('шестьдесят');

 1: writeln('шестьдесят один');

 2: writeln('шестьдесят два');

 3: writeln('шестьдесят три');

 4: writeln('шестьдесят четрые');

 5: writeln('шестьдесят пять');

 6: writeln('шестьдесят шесть');

 7: writeln('шестьдесят семь');

 8: writeln('шестьдесят восемь');

 9: writeln('шестьдесят девять')

end;

if (a>=70) and (a<80) then

 case b of

 0: writeln('семьдесят');

 1: writeln('семьдесят один');

 2: writeln('семьдесят два');

 3: writeln('семьдесят три');

 4: writeln('семьдесят четрые');

 5: writeln('семьдесят пять');

 6: writeln('семьдесят шесть');

 7: writeln('семьдесят семь');

 8: writeln('семьдесят восемь');

 9: writeln('семьдесят девять')

end;

if (a>=80) and (a<90) then

 case b of

 0: writeln('восемьдесят');

 1: writeln('восемьдесят один');

 2: writeln('восемьдесят два');

 3: writeln('восемьдесят три');

 4: writeln('восемьдесят четрые');

 5: writeln('восемьдесят пять');

 6: writeln('восемьдесят шесть');

 7: writeln('восемьдесят семь');

 8: writeln('восемьдесят восемь');

 9: writeln('восемьдесят девять')

end;

 if (a>=90) and (a<100) then

 case b of

 0: writeln('девяносто');

 1: writeln('девяносто один');

 2: writeln('девяносто два');

 3: writeln('девяносто три');

 4: writeln('девяносто четрые');

 5: writeln('девяносто пять');

 6: writeln('девяносто шесть');

 7: writeln('девяносто семь');

 8: writeln('девяносто восемь');

 9: writeln('девяносто девять')

 else writeln('error');

 end;

 end.

Report Page