Перевести из питона в паскаль # 1 прогаa = 0b = [10,15,12,13,7,8,11,14,17,20]for i in b: if i> 10: a +=1 else: continueprint(a)# 2 прогаa = 0b = [10,15,12,13,7,8,11,14,17,20]for i in b: if i> 10: a +=1 else: continueprint(a)

program raf105;

var  

 a: integer;

 b: array[1..10] of integer;

 i: integer;

begin

 b[1]:=10; b[2]:=15; b[3]:=12; b[4]:=13; b[5]:=7;

 b[6]:=8; b[7]:=11; b[8]:=14; b[9]:=17; b[10]:=20;

 for i:=1 to 10 do

   if b[i]>10

     then a+= 1

     else continue;

 writeln(a);

end.