Помогите!

Решить задачу на языке программирования 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.

Вроде должно быть так