Перевести из питона в Паскаль 1 прогаa = 0b =

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]gt;10

     then a+= 1

     else continue;

 writeln(a);

end.

PascalABC 3.4.2