[phasha]

Код:

program uznat_3samih_nedorogih;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type agent=record
     kk:byte;
     et:integer;
     pl:real;
     cena:real;
     dt:record
     den:integer;
     mes:integer;
     god:integer;
     end;end;
type kvart=file of agent;
var i,n:integer; f:kvart; k:agent; min1:real;
begin   i:=0;
 assign(f,'agenstvo.ddt');
 reset(f);   min1:=1000000000;
 While Not Eof(F) Do
  begin
   Inc(i);
   Read(F, K);
    if k.cena<=min1 then begin min1:=k.cena;
   Writeln('kvartira: ', i);
   Writeln('komnati: ', K.kk);
   Writeln('etag: ', K.et);
   Writeln('ploschad: ',K.pl:3:0,' kv. metrov');
   Writeln('data reg.: ', K.dt.den,'.',K.dt.mes,'.',K.dt.god,'g.');
   writeln('cena: ',min1:8:2,' rubley');
   writeln('----------------------------');  end;

  end;
 readln;
  Close(f);

end.

вот вывод самой дешевой квартиры или нескольких если их минимальные цены одинаковы...а как вывести квартиры по 3м самым дешевым ценам?((