Рисунок 2, так как в других схемах перевозок между станциями нет (например, CD)
4096 Кбайт / (1 * 1024 Кбайт / 8 сек) = 32 сек
Надеюсь сделал таблицу как в книге
Program art;
var s: string;
k: integer;
begin
writeln('Введите строку');
readln(s);
k:=length(s);
writeln('Длина строки: ',k);
end.