Напишите программу, рассчитывающую зарплату, которая будет получена после удержания подоходного налога в p%, если оклад составляет А рублей
Паскаль

var a,p,r:real;beginwrite('A = ');readln(a);write('p = ');readln(p);r:=a*(1-p/100);writeln('Зарплата = ',r);end.Пример:A = 2000p = 13Зарплата = 1740