Даны два числа V и N. Составьте программу, которая выведет ответ для решения следующей задачи: Нефтебаза отпустила за два дня V литров бензина. Во второй день база отпустила на N литров больше. Сколько литров бензина база отпустила во второй день?
решите в паскале ​

Dim s, s1, s0, t As String        'строка, первая буква слова, слово, список нужных слов
s = InputBox("Введите строку:")
Do
    Do
        n = n + 1
        If s1 = "" Then s1 = Mid(s, n, 1)            'запоминаем первую букву слова
        If Mid(s, n, 1) = s1 Then m = m + 1       'считаем, сколько раз она встретилась
        s0 = s0 & Mid(s, n, 1)                          'запоминаем слово
        If n > Len(s) Then Exit Do
    Loop While Mid(s, n, 1) <> " "
If m = 1 Then t = t & s0                                 'переносим слово в список
m = 0                       'сбрасываем промежуточные переменные в исходное состояние
s1 = ""
s0 = ""
Loop Until n > Len(s)
If t = "" Then t = "Искомых слов нет"
MsgBox (t)

1. В)

2. Б)

3. Г)

4. Б)

5. А), В)

6. Г)

7. А) животные, Б) одежда, В) слова, Г) деревья, Д)кисломолочные продукты, Е) цифры.

8. Ещё подумаю

9. 1) макароны, 2) песня, 3) песок, 4)шарф.

10. Например: 1) 5; 2) 5×5=25; 3)25×2=50; 4) 50+4=54; 5) 54-8=46; 6) 6; 7) 6×7=42; 8) 42:2=21 и 1) 3; 2) 3×5=15; 3) 15×2=30; 4)30+4=34; 5)34-8=26; 6) 6; 7)6×7=42; 8)42:2=21

Вывод: если взять любое число кроме нуля и выполнить с ним эту последовательность действий, то получается одно и тоже число-21.

11. 1) Раньше всех пришла лиса.

2) 1 - Лиса, 2 - медведь, 3 - заяц, 4 - волк, 5 - сорока.

12. Вариант - 1

1. В ведро вместимостью 8 л налить 5 л.

2. В банку вместимостью 5 л налить 2 л.

Вариант - 2

Ведро вместимостью 8 л налить 7 л.