7-10 задания решены при помощи таблицы триад и тетрад.
Решение смотри во вложении.
Вот исходный код должен работать
Var s: string; i: byte;
begin
write('Введите слово: ');
readln(s);
writeln;
i:=2;
while i<=length(s) do begin
write (s[i]);
i:=i+2
end
end.
--------------------------------------
Введите слово: Калифорния
аионя
200Кб-120 сек
х-90 с
х=200*90/120
за 90 сек 150 Кб