var x,i,tot:longint; a:Array[1..1000000] of longint; b:array[1..1000000] of boolean;beginread(x);while x>0 dobegininc(i);a:=x;read(x);end;x:=i;for i:=3 to x doif (not(b[i-1])) and (a[i-2]>34) and (a[i-1]>34) and (a>34) then
begin
b:=true;
inc(tot);
end;writ...
