Помогите пожалуйста)).​

Question

Помогите пожалуйста)).​

---

Answer 1

var i,max,min,n:integer;

begin

  readln(n);

  min:=n;max:=n;

  for i:=2 to 20 do

  begin

     readln(n);

     if i

     if i>=10 then begin if n>=max then max:=n; end;

  end;

  write('min=',min,'  max=',max);

end.