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