#include <iostream>
#define n=10;
avto=record
string; year:integer: price:read;avtoprice= file of avto; a1:array[1..n] of avto; i:integer; f1:avtoprice; marka,color;
void main()
{
assing(f1,'d:\avto');
reset(f1);
for i:1 to n do with a1[i] do
{
writeln('Введите марку:');
readln (marka);
writeln('Год выпуска:');
readln(year);
writeln('Цвет:');
readln(color);
writeln('Цена:');
readln(price);
}
writeln;
writeln('Фирма предлогает такие машины:')
for i=1 to n do with a1[i] do 
writeln(marka:15,year:10,color:20,color:red,' $',price);
writeln;
write('Выведим инф;');
writeln('Машину выпущенные в 1999 году;');
for i=1 to n do with a1[i] do 
if (year = 1999 and color= red)  writeln (marka:15,prece);
readln;
}.
}