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(Введите первое число: );
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.