Каждый дождевой день уровень воды в бочке, которая стоит под открытым небом, поднимается на Н см, а каждый солнечный день опускается на L см. Перед началом наблюдений уровень воды в бочке соответсятвует А см. Высота бочки К см. Есть сведения о погоде в каждый из дней наблюдений: 1 — соответствует солнечному дню, 2 — дождливому. Определить уровень воды в бочке по истечению N дней наблюдений. Входные данные:Во входном потоке в первой строке через пробел заданы числа А, К, H, L (А, К, H, L < 1000). Во второй строке дано целое число N - количество дней наблюдений (N < 30). Во третьей строке через пробел перечисленный N чисел, соответствующие прогнозу погоды. Выходные данные:Вывести единственное целое число. Пример входного файла (input.txt):20 50 2 1 8 2 2 1 1 2 1 2 2 Пример выходного файла (output.txt):27 Мое решение(скажите что не так): var h,l,a,k,n,d,i:longint; begin readln(a,k,h,l); read(n); for i:=1 to n do begin read(d); if(d=1)then a:=a-l else if (d=2)and (a+h>k) then a:=k else if (d=2)and(a+h if a