Răspuns :
program Tema;
var c:char;
begin
for c:='A' to 'Z' do
begin
Write(ord(c),' ');
end;
end.
var c:char;
begin
for c:='A' to 'Z' do
begin
Write(ord(c),' ');
end;
end.