Надо составить программу в паскале…

Program Percent; uses crt; var a,b: real; beginclrscr; write ('Enter the number: '); readln (a); write ('Enter the percentage of the number you want to search: '); readln (b); if b<0 then beginwrite ('The percentage can not be negative! '); endelsewrite ('The percent of that number is ', a*(b/100): 10:2); readkey; end.