Программа на Паскале будет выглядеть примерно так:

program CountTwoDigitNumbersNotDivisibleByFive;
var
count: integer;
i: integer;
begin
count := 0;
for i := 10 to 99 do
begin
if i mod 5 <> 0 then
count := count + 1;
end;
writeln('Количество двузначных чисел, не кратных 5: ', count);
end.

Эта программа выводит количество двузначных чисел, которые не делятся на 5.