Program zadanie;
var tablica:array[0..9] of integer;
i,min:integer;
begin
	randomize;
	for i:=0 to 9 do
	begin
		tablica[i]:=random(10)+1;
		write(tablica[i],' ');
	end;
	writeln;
	min:=tablica[0];
	for i:=1 to 9 do
	if tablica[i]<min then min:=tablica[i];
	writeln('Najmniejsza liczba to: ',min);
	readln;
end.