program lentai;
var a:array[1..10] of string;
    c:array[1..10] of integer;
    i,j,min,max:integer;
begin
 cls;
 max:=1;
 min:=1;
 for i:=1 to 10 do
  begin
   write('Введите марку автомобиля №',i,': ');
   readln(a[i]);
   write('Введите цену автомобиля №',i,': ');
   readln(c[i]);
  end;
  for i:=1 to 10 do
  begin
   if c[i]>c[max] then max:=i;
   if c[i]<c[min] then min:=i;
  end;
  writeln('Самый дешевый автомобиль ',a[min],' и стоит он ',c[min]);
  writeln('Самый дорогой автомобиль ',a[max],' и стоит он ',c[max]);
end.