Dasturlash tillari haqida Tabiiy

uses crt;

var

belgi:char; {belgi}

code: integer; {belgi kodi}

begin

clrscr;

writeln ('Belgini kiriting ni bosing.');

writeln ('Dastur ishini tugatish uchun nuqtani kiriting!');

repeat

write (' ');

readln (belgi);

code:= Ord (belgi);

writeln ('belgi',belgi,' kod: ',code);

until belgi= '.';

readln;

end.