Question

Найти количество натуральных двузначных чисел,
каждое из которых не делится ни на 2, ни на 13(паскаль)

Answer 1

var a,i:integer;
begin
a:=0;
for i = 10 to 99 do
begin
if ((i mod 2)<>0) and ((i mod 13)<>0) then
a:=a+1;
end;
writeln (a);
end.
вроде так

Answer 2

всё верно, только убери из цикла составной оператор