Решить задачу в стиле турбо паскаля 80-х годов.
Тема: Одномерные массивы
Известны данные о мощности двигателя(в л.с.) и стоимости 30-ти марок легковых автомобилей. Напечатать стоимость каждого из автомобилей, у которых мощность двигателя не превышает 80 л.с.

Предыдущий
вопрос Следующий
вопрос

program PowerAndPrice;
const
n = 30;
var
Power: array[1..n] of integer;
Price: array[1..n] of real;
i: integer;
begin
writeln('Мощность двигателя (л.с.):');
for i := 1 to n do
readln(Power[i]);

writeln('Стоимость автомобилей:');
for i := 1 to n do
readln(Price[i]);

writeln('Стоимость автомобилей с мощностью двигателя не более 80 л.с.:');
for i := 1 to n do
if Power[i] <= 80 then
writeln('Автомобиль ', i, ': ', Price[i]:0:2);
end.