var
  a: array[0..10] of integer;
  i, max, min: integer;

begin
  writeln('Введите 11 чисел (каждое с новой строки):');
  for i := 0 to 10 do
  begin
    readln(a[i]);
    if i = 0 then
    begin
      max := a[i];
      min := a[i];
    end
    else
    begin
      if max < a[i] then
        max := a[i]
      else if min > a[i] then
        min := a[i];
    end;
  end;
  writeln('Максимальный элнмент: ', max);
  writeln('Минимальный элемент: ', min);
end.