Question

Напишите на языке Паскаль, чтоб было все понятно, пожалуйста)

Помогите пожалуйста решить задачу.Когда Василисе Прекрасной исполнилось 18 лет, Кощей Бессмертный решил взять её замуж. Василиса спросила, сколько у Кощея сундуков с золотом. Кащей сказал, что у него 27360 сундуков полных золота, и каждый год прибавляется еще по 33 сундуков. Василиса обещала выйти за Кащея тогда, когда у него будет 30000 сундуков полных золота. Сколько лет будет невесте Кощея в день свадьбы?

Answer 1

                                         PascalABC.NET

begin

 var age_V := 18;

 var chests := 27360;

 while chests < 30000 do begin

   chests += 33;

   age_V += 1;

 end;

 print('Невесте будет:', age_V, 'лет')

end.