Определите способ записи и представленного алгоритма пополнить счёт

может быть крик?

решение должно иметь од 20 до 5000

program xxx;

var a: string;

begin

    write('введите строку-');

    read(a);

    write(a);

  readln

end.

закодированный текст: byck is my dog.

program zadacha6; var a,b: real; begin readln(a,b); if a> b then writeln (a) else writeln (b); end.

не? я не уверен