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

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

86 - 8 = 78 любят компьютерные игры

78 - 62 = 16 человек любят только квесты

78 - 54 = 24 человек любит только симуляторы

54 - 16 = 38 человек любят и квесты и симуляторы.

ответ. 38 человек любят и квесты и симуляторы.

 

круги эйлера: нарисуй прямоугольник внутри него два пересекающих друг друга круга. внутри прямоугольника поставь цифру 8 это те кто не любит комп. игры.

внутри одного круга напиши с и 62, это те кто любит симуляторы их 62 чел.

внутри другого круга напиши к и 54, это те кто любит квесты их 54 чел.

з.ы. у меня просто не хочет прикреплять рисунок.

program nn;

uses crt;

var a: array [1..20] of real;

t: real;

i,n,min: integer;

begin

    {ввод последовательности, это самостоятельно}

    min : = 1;

    for i : = 1 to 20 do

    begin

          if  a[i] < a[min] then

                min : = i;

    end;

 

    t : = a[min];

    a[min] : = a[20-n];

    a[20-n] : = t;

end.