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