program SimpleInterestCalculator;
var
Principal, Rate, Years, Interest: Real;
begin
Principal := 30000;
Rate := 4;
Years := 3;
Interest := (Principal * Rate * Years) / 100;
Writeln('Simple Interest = ', Interest:0:2);
end.
(*
run:
Simple Interest = 3600.00
*)