Помогите!!!
Решить задачу на языке программирования Pascal:
Рассчитайте еженедельную выручку зоопарка, если известно: - количество проданных билетов каждый день - цена взрослого билета - 115 руб. - цена детского на 30% дешевле чем взрослого.

спасибо огромное:))) очень помог!

program zoopark;var biletvs,biletde,vzros,dets,summ: real;beginwrite('Введите Количество проданных билетов для Взрослых');readln(biletvs);write('Введите Количество проданных билетов для Детей');readln(biletde);vzros:=115;dets:=115/100*70;summ:=((biletvs*vzros)+(biletde*dets))*7;write('Еженедельная выручка зоопарка =',summ);end.Вроде должно быть так