Pascal!

На станции есть бензин нескольких марок и по разной цене. Клиент выбирает марку бензина и называет количество литров. Вывести чек обслуживания клиента ...

Var

marka:array[1 ... 4] of string = ('АИ-92','АИ-95','АИ-98','ДТ');

cena:array[1 ... 4] of real = (35.50,38.50,41.70,34.50);

i, k, v:integer;

begin

Writeln ('Укажите код топлива');

for i:=1 to 4 do Write (i,' - ', marka[i],', ');

Write ('? ');

Read (k);

if (k>0) and (k<=4) then

begin

Write ('Количество литров: '); Read (v);

Writeln;

Writeln ('Топливо: ', marka[k]);

Writeln ('Количество, л: ', v);

Writeln ('Цена за 1 л, руб: ', cena[k]:0:2);

Writeln ('К оплате, руб: ', v*cena[k]:0:2)

end

else

Writeln ('Вы ввели неверное значение')

end.

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

Укажите код топлива

1 - АИ-92, 2 - АИ-95, 3 - АИ-98, 4 - ДТ,? 4

Количество литров: 56

Топливо: ДТ

Количество, л: 56

Цена за 1 л, руб: 34.50

К оплате, руб: 1932.00