program CalculatePercentage;
var
numerator, denominator, fraction, percentage: Double;
begin
numerator := 3.0;
denominator := 4.0;
// Calculate the fraction
fraction := numerator / denominator;
// Convert fraction to percentage
percentage := fraction * 100;
WriteLn('Percentage: ', percentage:0:2, '%');
end.
(*
run:
Percentage: 75.00%
*)