program Percentages;vara, b, c, total: real;beginwriteln('Enter the values of a, b and c:');readln(a, b, c);
total := a + b - c;
writeln('Percentage of a: ', (a / total) 100:0:2, '%');writeln('Percentage of b: ', (b / total) 100:0:2, '%');writeln('Percentage of c: ', (c / total) * 100:0:2, '%');end.
program Percentages;
var
a, b, c, total: real;
begin
writeln('Enter the values of a, b and c:');
readln(a, b, c);
total := a + b - c;
writeln('Percentage of a: ', (a / total) 100:0:2, '%');
writeln('Percentage of b: ', (b / total) 100:0:2, '%');
writeln('Percentage of c: ', (c / total) * 100:0:2, '%');
end.