a63.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

var f,g:text;
    n,x,min,max:integer;
begin
assign(f,'numere.in');reset(f);
assign(g,'numere.out');rewrite(g);
while not eof(f) do begin
                    read(f,x);
                    min:=x;
                    max:=x;
                    while not eoln(f) do begin
                                         read(f,x);
                                         if x<min then min:=x;
                                         if x>max then max:=x;
                                         end;
                   writeln(g,min,' ',max);
                   end;
close(f);
close(g);
readln;
end.