Программист василий кардов недавно получил банковскую карточку. чтобы не забыть пароль к карточке, василий решил построить его по алгоритму, а именно: пароль равен количеству чисел от 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. //на паскале на правельность не проверял

program vvl;

var x: integer;

      v: real;

begin

write('x=');

readln (x);

v: = abs(a)-2;

writeln ('v='; v: 2: 1);

end.

программа, выводящая на экран номер четверти координатной плоскости, которой принадлежит точка с координатами х≠0 и у≠0

  program 198;

var x,y: real;

begin;

readln (x; y);

if x> 0 and y> 0 then

writeln (1 chetvert);

end;

if x< 0 and  y> 0 then

writeln (2 chetvert);

end;

if x< 0 and  y< 0 then

writeln (3 chetvert);

end;

if x> 0 and  y< 0 then

writeln (4 chetvert);

end;

end.