9 lines
146 B
ObjectPascal
9 lines
146 B
ObjectPascal
// Òàáëèöà ñèìâîëîâ è èõ êîäîâ
|
|
begin
|
|
for var i:=32 to 255 do
|
|
begin
|
|
write(i:4,chr(i):2,' ');
|
|
if i mod 8 = 7 then writeln;
|
|
end;
|
|
end.
|