Напишите программу на Паскале,в которой выдается количество двузначных чисел,не кратных 5

программа, выдающая количество двухзначных чисел, которые не больше 5 первая программа Vari , a : integer;begina : = 0 ; for i : = 1 to 90 doif i mod 5 < > 0 then a : = a + 1 ;writeln (\'Количество чисел не кратных 5 : \' , a ) ;end.второй способ вычисления в программе var i , c : byte;beginfor i : = 10 to 99 do if i mod 5 > 0 then c + = 1 ;writeln ( c ) ;end.