Cara menampilkan karakter pada turbo pascal



Program karakter;
Uses wincrt;
Var I : Integer;

Begin
for I:=1 to 256 do

write (chr(I));
end

Komentar