Programa Peso

program peso;
uses crt;
var p, p1, p2:real;

begin
     clrscr;
     writeln ('digite o peso da pessoa');
     readln (p);
     p1:=p+(p*15/100);
     writeln ('o peso com 15% de aumento e: ',p1);
     p2:=p-(p*20/100);
     writeln ('o peso com 20% a menos e: ',p2);
     readkey;
end.