На концерте певицы было А % почивающих в санатории, на выступление

program zz1;

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

begin

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

read(x);  

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

read(a);

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

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

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

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

end.