Программист Василий Кардов недавно получил банковскую карточку. Чтобы не забыть пароль к карточке, Василий решил построить его по алгоритму, а именно: пароль равен количеству чисел от 1 до 10000, НЕ делящихся на 13 и 17. Чему равен пароль васи?

program suma_chisel;

var s,i,t,c:integer;

begin

s:=0;

for i:=1 to 10000 do begin

t:=i mod 13;

c:=i mod 13;

if not(t=0) and not(c=0) then s:=s+1 end;

writeln ('Nomer karti - ',s);

readln

end. //на Паскале на правельность не проверял