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
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.