пожарный имеет в запасе 300 литров воды

Я не знаю, что за пожарный, но я напишу программу, которая будет выводить "Пожарный имеет в запасе 300 литров воды" на окно вывода:program a1;beginWrite ('Пожарный имеет в запасе 300 литров воды');end.