Каждый солнечный день улитка сидящая на дереве поднимается вверх на 2 см а в пасмурный день опускается на 10 см. в начале недели улитка находилась на а см от земли и на в метровом дереве. Имеются 30 массив, содержащий сведения о том был ли соответствующий день пасмурным. Определить место положения улитки к концу 30 дня. паскаль

Program Ulitka; Var SunnyDay: Array [1 ... 30] Of Boolean; a, b, c, i: Integer; Begin WriteLn ('a = ') ; ReadLn (a) ; WriteLn ('b = ') ; ReadLn (b) ; b : = b * 100; Randomize; For i : = 1 To 30 Do Begin If Random (2) = 1 Then SunnyDay[i] : = True Else SunnyDay[i] : = False; End; For i : = 1 To 30 Do Begin If SunnyDay[i] = True Then Begin a : = a + 2; If a > b Then a : = b; End Else Begin a : = a - 10; If a < 0 Then a : = 0; End; End; WriteLn ('Дни месяца были таковы:') ; For i : = 1 To 30 Do Begin If SunnyDay[i] = True Then WriteLn (i, '. Солнечный') Else WriteLn (i, '. Пасмурный') End; WriteLn ('К концу 30 дня местоположение улитки равно ', a, ' см над землей') ; End.