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