Простой учет автомобилей.
В лабораторной работе выполнена программа по такому алгоритму:
заполняется файл по нужному колличеству автомобилей. Потом эта информация выводится на экран.

program Mashinki;
type
avto=record
nomer:string[10];
god:integer;
cena:real;
cvet:string[15];
end;
var
n,i:integer;
av:avto;
f:file of avto;
begin
assign(f,’dan.dat’);
rewrite(f);
write(’Vvedite kol-vo avtomobiley’);
readln(n);
writeln(’Vvedite info ob avtomobilyah’);
for i:=1 to n do
begin
writeln;
write(’Nomer-’);
readln(av.nomer);
write(’God vipuska-’);
readln(av.god);
write(’Cena-’);
readln(av.cena);
write(’Cvet-’);
readln(av.cvet);
write(f,av);
end;
writeln;

writeln(’************Poluchen FILE************’);
reset(f);
while not EOF(f) do
begin
read(f,av);
writeln(’Nomer-’,av.nomer);
writeln(’God vipuska-’,av.god);
writeln(’Cena-’,av.cena:5:2);
writeln(’Cvet-’,av.cvet);
writeln
end;
readln;
readln;
readln;
end.