Question

Найти минимальное из чисел, введенных с клавиатуры. Признак конца ввода число 0. Чисел неограниченное кол-во. Решать через repeat

Answer 1

00000000000000000000000000000000000000000000000000000000000000000000.1

Answer 2

program abrakadabra;
var a,b,max:integer;
Begin
repeat
readln(a);
readln(b);
if a >= b then max:=a
else max:=b;
until a = 0;
writeln(max);
readln();
End.