Среди преподавателей высших учебных заведений Ливии ливийцы составляют 20-30% от общего числа, остальные - иностранцы

Program Pr1;
uses crt;
const n=10000;
var mas:array[1..n] of integer;
i,l:integer;
Begin
clrscr;
for i:=1 to n do mas[i]:=i;
l:=0;
for i:=1 to n do if (mas[i] mod 13<>0) and (mas[i] mod 17<>0) then l:=l+1;
writeln(l);
end.