Помогите! Дана последовательность чисел, которая заканчивается на 0. Найдите меньшее число,

владмор, что ты там так долго пишешь?_)))

1.Как я сообразил, последовательность вводится с клавиатуры и признак окончания ввода - 0. Значит имеет смысл использовать цикл Repeat
2. Вводимые числа - целые.
После этих уточнений можно написать код на PascalABC:

//Вариант с циклом repeat
var
  a, min: integer;

begin
  min := 555555;
  repeat
    readln(a);
    if ((a mod 10 = 5) or (a mod 10 = -5)) and (a lt; min) then
      min := a;
  until a = 0;
  writeln(min);
end.

//вариант с циклом while
var
  a, min: integer;

begin
  min := 555555;
    readln(a);
    while (agt;0) or (alt;0) do begin
    if ((a mod 10 = 5) or (a mod 10 = -5)) and (a lt; min) then
      min := a;
      readln(a);
   end;  
  writeln(min);
end.