program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a:array [1..20] of integer; max,min,i:integer;
begin
randomize;
max:=0;
min:=100;
for i:=1 to 20 do     begin
a[i]:=random(50);
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('min:',min,' max:',max);
readln;
  end.