program Treci;
type podaci=record
     odr:string[20];
     cena:integer;
     vr:real
            end;
var f:file of podaci;
    let:podaci; n:integer;
begin
     assign(f,'KRATKI.DAT');reset(f);
     n:=0;
     writeln('Spisak kratkih letova:');
     while not eof(f) do
           begin
                read(f,let);
                with let do writeln(odr:20,cena:10,vr:10:2);
                if let.cena<300 then n:=n+1
           end;
           close(f);
           writeln('Trazenih letova sa manjom cenom od 300 ima:',n:5);
     readln
end.