https://pastein.ru/t/dN

  скопируйте уникальную ссылку для отправки


program propis;
var a,b,x:integer;
var c,d,t:string;
begin
  writeln('Введите целое число, не превышающее 100');
  readln(a);
  if (a>100) or (a<0) then writeln('Введены неправильные данные')
  else begin
    b:=a div 10;
    case b of
      2:c:='двадцать';
      3:c:='тридцать';
      4:c:='сорок';
      5:c:='пятьдесят';
      6:c:='шестьдесят';
      7:c:='семьдесят';
      8:c:='восемьдесят';
      9:c:='девяносто';
      10:c:='сто';
    end;
    x:=a mod 10;
    case x of
      1:d:='один';
      2:d:='два';
      3:d:='три';
      4:d:='четыре';
      5:d:='пять';
      6:d:='шесть';
      7:d:='семь';
      8:d:='восемь';
      9:d:='девять';
    end;
    case a of
      10:t:='десять';
      11:t:='одиннадцать';
      12:t:='двенадцать';
      13:t:='тринадцать';
      14:t:='четырнадцать';
      15:t:='пятнадцать';
      16:t:='шестнадцать';
      17:t:='семнадцать';
      18:t:='восемнадцать';
      19:t:='девятнадцать';
    end;
    if (a=0) then writeln('Введёное вами число - нуль.')
    else if (a>9) and (a<20) then writeln('Введёное вами число - ',t)
    else writeln('Введёное вами число - ',c,' ',d);
  end;
end.