Светлана , ответ добавлен 14.02.2018 в 18:52

Var
alpha:string;
a: array [0 .. 26] of Char;

begin 
alpha:='HELLO'; 
for var i:=1 to length(alpha) do
begin   
a[i]:=alpha[i];   
write(Ord(a[i])+' '); 
end
end.

 0