3 потому что правило в русской литературе такое
<span><span>var n,i,posmax:integer;
max:real;
a:array of real;
<span>begin</span></span></span>
Var
a, i: integer;
begin
a:=0;
i:=10;
repeat
if ((i mod 3) = 0) then
a:=a+1;
i:=i+1;
until i = 100;
writeln(a);
<span>end.</span>