Girilen fiyatı ve indirim oranını bulan basit bir program

Program indirim;
var
a,b:integer;
i:real;
Begin
write('fiyati giriniz=');
readln(a) ;
write('indirim oranini giriniz=');
readln(b) ;
i:=a-((a*b)/100);
writeln('indirimli fiyat=',i:0:2);
readln;
End.