Pascal ABCПомогите пожалуйста ​

Question

Pascal ABCПомогите пожалуйста ​

---

Answer 1

var

 a, c: Integer;

begin

 WriteLn ('Введите возраст пассажира: ');

 ReadLn (a);

 if a >= 18 then

   c := 10

 else if a >= 12 then

   c := 6

 else if a >= 6 then

   c := 4

 else

   c := 0;

 WriteLn ('Стоимость завтрака = ', c, ' евро');

 ReadLn;

end.