Сколько процентов от a+b-c приходится на a, на b, на c? Язык:Pascal.

var

a, b, c, prosA, prosB, prosC: real;

begin

Writeln ('Введите 3 числа через пробел: ');

readln (a, b, c);

prosA : = (a * 100) / (a + b + c);

prosB : = (b * 100) / (a + b + c);

prosC : = (c * 100) / (a + b + c);

Writeln ('A[', prosA:0:2, '] B[', prosB:0:2, '] C[', prosC:0:2, ']');

end.