GİRDİĞİNİZ RAKAMIN YAZI ŞEKLİNİ VEREN PROGRAM

uses crt;
var
     sayi:integer;
begin
    clrscr;
    write('bir say girin(1-10)...:'); readln(sayi);
    case sayi of
       1:writeln(' bir ');
       2:writeln(' iki ');
       3:writeln(' uc ');
       4:writeln(' d”rt ');
       5:writeln(' bes ');
       6:writeln(' alti ');
       7:writeln(' yedi ');
       8:writeln(' sekiz ');
       9:writeln(' dokuz ');
       10:writeln(' on ');
    else writeln('girilen say 1-10 snr dsnda.');
    end;
    readln;
    end.