Алфавит некоторого языка состоит из 64 символов. за сколько секунд можно передать текст из 2000 символов, если скорость передачи — 50 байтов в секунду? с дано, найти и решением.!

program xxx;

var s : string;

        а : integer;

begin

    writeln ('введите слово-');

    readln (s);

    а: = length(s)

    writeln ('длина слова=', a);

    readln

end.

var

  n,i,a: integer;

begin

  readln(n);

  for i: =1 to n do

  begin

  read(a);

  write(abs(a),' ');

end;

end.