На предприятии за одну смену выпускается х планшетов. известно, что p% из них в черном корпусе, а остальные в белом. написать программу для вычисления количества белых планшетов, выпускаемых за смену на предприятии.формула

Сделано в Pascal ABC:

Program White;
var  X, P, Y: real;
begin 
writeln('Введите количество всех планшетов'); 
readln(X);   
writeln('Введите Р процентов планшетов в черном корпусе'); 
readln(P); 
Y:=X-(X*(P/100)); 
writeln('Планшетов в белом корпусе=',Y)
end.