<span>d)if (x>y) and (y>z) then a:=x+y+z</span>
Var a: array [1..100] of integer;
min,a,p: integer;
begin
read(n);
for i:= 1 to n do
read (a[i]);
min:a[1]; p:=1;
for i:=2 to n do
if a[i]< min then
begin
min:=a[i];
p:=i;
end;
writeln('min,=; ,min);
writeln (' на позиции;p);
end.