Напишите программу на Паскале,в которой выдается количество двузначных чисел,не кратных 5
Var i,a:integer; begin a:=0; for i:=1 to 90 do if i mod 5<>0 then a:=a+1; writeln('Количество чисел не кратных 5: ',a); end.