Programalama > PASCAL

program sayiyaz;
uses crt;
var sayi,b1,b2:integer;

procedure onlar(s:integer);
begin
  case s of
    1:write('ON');
    2:write('Y˜RM˜');
    3:write('OTUZ');
    4:write('KIRK');
    5:write('ELL˜');
    6:write('ALTMIž');
    7:write('YETM˜ž');
    8:write('SEKSEN');
    9:write('DOKSAN');
  end;
end;

procedure birler(k:integer);
begin
  case k of
    1:write('BIR');
    2:write('˜K˜');
    3:write('š€');
    4:write('D™RT');
    5:write('BEž');
    6:write('ALTI');
    7:write('YED˜');
    8:write('SEK˜Z');
    9:write('DOKUZ');
  end;
end;

Begin

  clrscr;
  write('1-99 Arasnda bir say giriniz :');
  readln(sayi);
  if sayi<9 then birler(sayi);
  if sayi mod 10=0 then onlar(trunc(sayi/10));
  if (sayi>9) and (sayi mod 10<>0) then
  begin
    b1:=trunc(sayi/10);
    onlar(b1);
    b2:=sayi-10*b1;
    birler(b2);
  end;
  repeat until keypressed;

End.