program Prvi;
type podaci=RECORD
                  odr:string[20];
                  cena:integer;
                  vreme:real;
                  end;
var f:file of podaci;
    let:podaci; i,n:integer;
begin
     assign (f,'LETOVI.DAT'); rewrite(f);
     write('Koliko ima letova ->');readln(n);
     writeln('Unosimo podatke o njima:');
                      for i:=1 to n do
                          begin
                               write('odrediste->');readln(let.odr);
                               write('cena->');readln(let.cena);
                               write('vreme->');readln(let.vreme);
                               write(f,let);
                          end;
                      close(f);
                      write('Unos zavrsen, ptitisni ENTER');
     readln
end.