составьте программу ,которая выводит на экран коды символов в слове BEBY.
ABC Pascal

var
    i: integer;
    s: string;

begin
    s := 'BEBY';
    for i := 1 to Length(s) do
        writeln(ord(s[i]));
end.