Паскаль помогите пожалуйстаКаждый солнечный день улитка, сидящая на дереве,…

Uses crt; const n=30; var c: array[1… n] of integer; a,b,i: integer; beginrandomize; writeln ('на какой высоте была улитка'); readln (a); writeln ('ведите длину ветки'); readln (b); for i: =1 to n dobeginc[i]: =random (2) -0; {1-солнечно; 0-пасмурно}writeln (c[i]); end; writeln; for i: =1 to n doif (c[i]=0) then a: =a-1 else a: =a+2; writeln (a,'см'); if a>b then writeln ('улитка переползла ветку'); if a=b then writeln ('улитка вернулась в начальное положение'); if a=0 then writeln ('улитка спустилась до земли'); end.