{programmer:mogtaba amirzade 
url http:\\www.ifjam.com
}
program p14(input,output); {18:while form}
var
x,min,max,k,n:integer;
begin {program}
assign(input,'a:\programs\inp14.dat');
reset(input);
assign(output,'a:\programs\outp14.dat');
rewrite(output);
k:=2;
write('namber tools>');
readln(n);
write('enter first namber>');
readln(min);
max:=min;
while k<=n do
begin {while}
writeln('enter x',k,'>');
readln(x);
if x<min then
min:=x;
if x>max then
max:=x;
k:=k+1;
end; {while}
writeln(' max=',max,' min=',min);
readln
end. {program}