Задача по программированию на Pascal. Стоимость топлива

Задача.
Pascal. Массив

Написать программу для записи стоимость 3-х видов топлива и последующего вывода стоимости запрашиваемого вида топлива. Программа запрашивает цены топлива тип 1, 2 и 3 поочерёдно. Затем запрашивает стоимость какого типа топлива показать и показывает её на экран.

Пример работы программы:

Пример решения задачи:
(программа написана в среде Pascal ABC.Net)

var
a: integer;
benz: array [1..3] of integer; //объявляем массив для записи цен топлива, состоящий из 3-х элеменотов
begin
for a := 1 to 3 do //зацикливаем программу 3 раза для ввода 3-х цен топлива
begin
writeln('Введите стоимость бензина тип ', a);
readln(benz[a]); // присваиваем введённое значение a элементу массива
end;
writeln('На каком бензине вы поедите? 1,2 или 3');
readln(a); //считываем цену какого типа топлива отобразить
writeln('Стоимость топлива ', a, ' - ', benz[a], ' рублей'); //выводим необходимую стоимость топлива
end.

Задачу составил учитель информатики Лосев Антон Владимирович