Дан массив из 10 элементов. определить 2х значные числа и которые заканчиваются на цифре 5.

Var
   i:integer;
   b: array[1..10] of integer;
begin
for i:=1 to 10 do readln(b[i]);
writeln;
writeln('Двухзначные:');
for i:=1 to 10 do
  if (b[i]>9) and (b[i]<100)
      then write(b[i],' ');
writeln;
writeln('Оканчиваются на 5:');
for i:=1 to 10 do
  if b[i]mod 10=5
      then write(b[i],' ');
end.