Var a: string; i: integer; al: char;
begin
writeln ('введите слово');
readln (a);
for i: =1 to length (a) do
begin
al: =a[i];
write (ord (al));
end;
end.
надо написать программу обратную этой. то есть чтобы при вводе цифры выводилось слово

Elizabeth1006    2   05.11.2019 14:05    0