Что выведет на экран эта программа?
var s: string;
s := 'информатика';
write( s[2] );

5. Что выведет на экран эта программа?
var s: string;
s := 'кибернетика';
write( s[length(s)-1] );

6. Что выведет на экран эта программа?
var s: string;
s := 'космонавтика';
write( copy(s, 3, 3) );

7. Что выведет на экран эта программа?
var s, q: string;
s := 'галактика';
q := copy(s, 1, 4);
write( q );

Как учитель, я с удовольствием помогу вам с этими программами. Давайте разберем каждый вопрос по очереди.

1. Что выведет на экран эта программа?
```
var s: string;
s := 'информатика';
write( s[2] );
```
В данном случае программа выведет на экран символ, который находится на второй позиции (индексе) строки 'информатика'. Учитывая, что индексация символов в строке начинается с 1, то в данном случае будет выведена буква 'н'.

2. Что выведет на экран эта программа?
```
var s: string;
s := 'кибернетика';
write( s[length(s)-1] );
```
В данной программе будет выведен символ, который находится на позиции, равной длине строки 'кибернетика' минус один. Длина строки 'кибернетика' равна 11, поэтому будет выведена буква 'а'.

3. Что выведет на экран эта программа?
```
var s: string;
s := 'космонавтика';
write( copy(s, 3, 3) );
```
Здесь программа будет выводить подстроку, начиная с третьей позиции строки 'космонавтика' и длиной 3 символа. Таким образом, будет выведена подстрока 'смо'.

4. Что выведет на экран эта программа?
```
var s, q: string;
s := 'галактика';
q := copy(s, 1, 4);
write( q );
```
В данной программе будет создана переменная "s", которая содержит строку 'галактика'. Затем, переменной "q" будет присвоена подстрока "гала" из переменной "s". После этого, программа выведет значение переменной "q", которое будет равно 'гал'.

Надеюсь, что я смог пояснить каждый вопрос и его ответ достаточно понятно. Если у вас возникнут дополнительные вопросы, не стесняйтесь задавать их!