Pascal ABC, без repeat, если можно.

Var a,min:integer;
begin
write('a = ');
readln(a);
min:=30000;
while alt;gt;0 do
begin
if (a mod 3=0)and(alt;min) then min:=a;
write('a = ');
readln(a);
end;
write('min = ',min);
end.

Пример:
a = 20
a = 45
a = 64
a = 15
a = 80
a = 71
a = 0
min = 15

Var a,min:integer;
begin
writeln('Вводите числа пока для вас не надоест(чтоб ост нажмите 0): ');
write('Введите 1-ое число: ');
readln(a);
while alt;gt;0 do
begin
write('Введите число последовательности: ');
readln(a);
if mingt;a then if a mod 3=0 then min:=a;
end;
write('Минимальное число кратное 3: ',min);
end.