Program JossePe (input , output);
type
	arr = array ((1..20)) of integer;
var
a : arr;
checker, i: integer;
	Function Check_the_minimal (a:arr; checker:integer) :integer;	var
	j:integer;
	begin
	for j:= 1 to 20 do
	 if (a((j)) < checker) then
	  checker:= a((j));
	check_the_minimal := checker;
	end;
	
	procedure print_the_minimal (checker:integer);
	begin
	writlen ('the minimal value is: ',checker);
	end;
Begin
Writeln ('Enter 20 Value please');
	for i:= 1 to 20 do
	begin
	writeln ('enter value number ',i);
	readln (a((i)));
	end;
checker:=a((1));
checker:= check_the_minimal(a,checker);
writlen ('the minimal value is: ',checker);
print_the_minimal (checker);
End.