program raf105;
var a, counter,i: integer;
begin
writeln('Вводите числа по очереди');
for i:=1 to 5 do
readln(a);
if (a>0) and (a>=10) and (a<=99) and((a mod 5)<>0)
then counter+= 1;
end;
writeln('Таких цифр: ',counter);
end.
program raf105;
var a, counter,i: integer;
begin
writeln('Вводите числа по очереди');
for i:=1 to 5 do
begin
readln(a);
if (a>0) and (a>=10) and (a<=99) and((a mod 5)<>0)
then counter+= 1;
end;
writeln('Таких цифр: ',counter);
end.
Язык PascalABC