Решить 9,10 задания.
Там где есть решение сделать с ним!

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