[Страдалецъ]

Уже неплохо, только не вывод а ввод.
Ну а тут, что я написал?:

Код:

Var Val,i,Min: Integer;
begin 
 Min := 0;
 for i := 1 to 6
 do begin
     ReadLn(Val); 
     if Val < Min then Min := Val;
     end;
end.