Условие:
Выберите программы, которые решают задачу: напечатать в одну строку все литеры между 'A' и 'Z', включая и эти буквы.
var i: integer; begin for i:=ord≤ft({ }\prime A\right. ' ) to ord('Z') do write(chr(i)); end.
var c: char; begin for c:= ' A ' to ' Z ' do write(c); end.
var i.integer; a: string[26];
begin
a[1]:='A';
for i:=1 to 25 do
a[i]: = chr (ord('A')+i);
write(a);
end.