var i,min:integer;a:array [1..10] of integer;Begin for i:= 1 to 10 do Begin read(a[i]); if (i=1) or (min>a[i])then min:=a[i]; end; writeln(min);End.
var i,min:integer;
a:array [1..10] of integer;
Begin
for i:= 1 to 10 do Begin
read(a[i]);
if (i=1) or (min>a[i])then
min:=a[i];
end;
writeln(min);
End.