Составить программу, которая формирует файл записей, содержащих информацию об автомобиле (название модели, год выпуска, цена, цвет), а также найти в массиве записей и вывести на экран названия моделей красного цвета, випускалиcя в 2000 году. p.s , заране огромное .

, предположу что всего 10 машин, программа будет правильна, потом можешь изменить, смотря для чего нужна.

mod(10), col(10) as string

god(10), zen(10),i as integer

формирование массивов из машин:

for i=1 to 10

read(mod(i)) - вводим модель

read(col(i)) - цвет

read(god(i)) - год выпуска

read(zen(i)) - цену

next

нахождение:

for i=1 to 10

if col(i)="красный" and god(i)=2000 then

write(mod(i));

end.

Var   i: integer; begin   writeln('число    квадрат');   i: =14;   while i< =24 do   begin writeln(i: 4,sqr(i): 9); i: =i+2 end end. результат выполнения программы: число    квадрат   14          196   16          256   18          324   20          400   22          484   24          576

      if            < условие>           then  < оператор1>   else  < оператор2> ;                       (если)                                                      (то)                                                    (иначе) 2)      if              < условие>             then  < оператор> ; (если)                                                    (то)         и не paskal a pascal