Помогите!

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

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