Паскаль. 1) Написать программу, определяющую удовлетворяет ли заданный массив условию последовательности Фибоначчи.
2) Написать программу, вычисляющую количество вхождений одной строки в другую в качестве подстроки.
при выполнении второго пункта нельзя использовать стандартные функции для работы со строками (кроме length)

Иc постусловием, и с предусловием. sub slot()       dim c as double       dim c1 as double       dim c2 as double       dim c3 as double       dim z as integer       dim b as integer       dim t as integer       dim n as integer       n = 100 ' nado golov       c = 100 ' vsego deneg       c1 = 10 ' za bika       c2 = 5 'za korovy       c3 = 0.5 'za telenka       z = 0       do               b = 0               do while b < = c / c2                       t = 0                       do while t < = c / c3                               if z + b + t = n then                                       if z * c1 + b * c2 + t * c3 = c then                                               msgbox ("bikov: " & z & "korov: " & b & "teliat: " & t)                                       end if                               end if                               t = t + 1                       loop                       b = b + 1               loop               z = z + 1       loop until z > c / c1 end sub