Simple interest

Pascal Input/Output

formula + output

Flowchart (ISO 5807)

program SimpleInterest;
var p, r, t, interest: real;
begin
  readln(p, r, t);
  interest := p * r * t / 100;
  writeln(interest);
end.