Каждый солнечный день улитка сидящая на дереве поднимается вверх на 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 ThenBegin    a := a + 2;    If a > b Then    a := b;  End  Else  Begin   a := a - 10;    If a 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.