{programmer:mogtaba amirzade 
url http:\\www.ifjam.com
}
program p15(input,output); {18:reapeat form}
var
x,n,k,min,max:integer;
begin
assign(input,'a:\programs\inp15.dat');
reset(input);
assign(output,'a:\programs\outp15.dat');
rewrite(output);
k:=2;
write(' enter namber of tools>');
readln(n);
write(' enter x1>');
readln(min);
max:=min;
repeat
writeln(' enter x',k,'>');
readln(x);
if x<min then
min:=x;
if x>max then
max:=x;
k:=k+1;
until k>n;
writeln(' max=',max,' min=',min);
readln
end.