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

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

второй способ вычисления в программе

var i, c : byte;

begin

for i : = 10 to 99 do

if i mod 5 > 0 then c + = 1;

writeln (c);

end.