Дан массив из 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]      then write(b[i], );
writeln;
writeln(Оканчиваются на 5:);
for i:=1 to 10 do
  if b[i]mod 10=5
      then write(b[i], );
end.