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

Question

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

---

Answer 1

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

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

Answer 2

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