Вычислите кол-во целых двузначных нечетных чисел не делящихся на 5(паскаль abc)
program chisla;
var
a,i:integer;
begin
a:=0;
for i:=10 to 99 do
if (i mod 2 <>0) and (i mod 5 <> 0) then
a:=a+1;
write(i,' ');
end;
writeln;
writeln('чисел: ',a);
end.
братаааааан спасибо