Localize file www.TrSek.com/zadania/znaky.pas{ ZNAKY.PAS Copyright (c) Pheo }
{ Program na výpiše ASCII tak, aby všetky znaky vošli na monitor. }
{ }
{ Datum:15.04.2003 http://www.trsek.com }
program znaky;
uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 242 do
if i<100 then write (ord(i),'-',chr(i),', ')
else write (ord(i),'-',chr(i),', ');
repeat until keypressed;
end.