Срочно! Помогите пожалуйста!!!! 2 задачи в Паскале!!

1) var a:array[2..5] of integer;c,i,h:integer;beginfor i:=2 to 5 do a[i]:=0;h:=6;for i:=1 to 10 do begin readln(c);if c<h thencase c of5:h:=5;4:h:=4;3:h:=3;2:h:=2;end;a[c]:=a[c]+1;end;case h of5:writeln('Отличник');4:writeln('Хорошист');3:writeln('Троечник');2:writeln('Двоечник');end;end. 2) var b1,b2:real;i:integer;beginb1:=350000+350000*0.1;b2:=350000;for i:=1 to 12 do b2:=b2+b2*9/12/100;if b1>b2 thenwriteln('Банк 1 выгоднее на:',b1-b2)elsewriteln('Банк 2 выгоднее на:',b2-b1);end.