7 lines
96 B
ObjectPascal
7 lines
96 B
ObjectPascal
var c:char;
|
|
|
|
begin
|
|
for c:='a' to 'z' do
|
|
writeln('ord(',c,')=',ord(c), ' ');
|
|
readln;
|
|
end. |