Напишите программы в Паскале!!!_ 2. Расход бензина на 100 км пути в среднем составляет 9 л. Определить стоимость бензина

program petrol;var i, x: integer;beginwrite(\'Введите цену одного литра бензина: \');readln(x);For i:= 1 to 5 do writeln(\'Расстояние: \', i * 200 : 4, \' км, стоимость бензина \', i * 18 * x : 5, \' р.\' );end. program cheese;var i, k: integer;beginwrite(\'Введите цену одного килограмма сыра: \');readln(k);For i:= 1 to 10 do writeln(\'Порция сыра: \', i * 100 : 4, \' г, стоимость порции \', (i * k) / 10 : 4, \' р.\');end.