На концерте певицы было А % отдыхающих в санатории, на выступление хора зрителей собралось в 1,5 раза больше. Сколько зрителей побывало на этих концертах, если всего в санатории отдыхало х человек.

program zz1;

var a, b, c, d, x:real; / /задаем переменные не целого типа

begin

write (' введите всего отдыхающих '); / / вводим с клавиатуры первое число

read (x);

write (' введите сколько было процентов зрителей на концерте певицы '); / / вводим с клавиатуры второе число

read (a);

b:=x * a/100; / / высчитываем сколько отдыхающих было на концерте певицы

c:=b * 1.5; / / высчитываем сколько отдыхающих было на концерте хора

d:=b + c; / / высчитываем сколько всего

writeln (' зрителей побывало на этих концертах = ', d); / / выводим ответ

end.