Получить из слова "" слово "тематика" pascalabc

Pascal abc из слова "вертикаль" путем вырезок и склеек его букв получить слова "тир" и "ветка" ввести один из символов "y" или "n". при вводе "y" вывести на экран слово "да", а при вводе "n" слово "нет" pascal abc  даны строки а="вариант",b= "высоко", с = "макароны". получить слово "соковарка" pascal abc    pascal abc вывести текст файла, заменив цифры от 0 до 9 на слова "ноль", "один""девять", начиная каждое предложение с новой строки из слова "яблока" путем вырезок и склеек получить слово "блок" и "ока" pascal abc  pascal abc составить программу, которая бы выводила на экран заданное число и подпись в зависимости от числа "год", "года" или "лет" pascal abc ,составьте программу, которая из слова "программа" составляет слова: "грамм","рога","гора" из слова "апельсин" путем вырезок и склеек его букв получить слово "спаниель" pascal abc 

2, 3, 6, 18, 108

каждый член последовательности начиная с третьего равен произведению двух предыдущих:

2 * 3 = 6

3 * 6 = 18

6 * 18 = 108

var s,s1: string; n,i: integer; begin readln(s); readln(n); for i: =1 to n do begin insert(s[1],s1,length(s1)+1); delete(s,1,1); end; s: =s+s1; writeln(s); end.