var a,min,max: integer;
begin 
a:=1;

 write('введите число--> '); 

 readln(a); 
 
 if a<>0 then begin
 min:=a;
 max:=a;


while a<>0 do 

begin

 write('введите число--> '); 

 readln(a); 
 
 if a>max then max:=a;
 
 if (a<min) and (a<>0) then min:=a;
 
end;

Writeln ('Минимальное число = ',min);

Writeln('Максимальное число = ',max);
end
else write ('Числа не были введены.');

end.