Ребята, кто разбирается в программировании, помогите!

Составьте программу, вычисляющую, сколько процентов от А+В-С приходится: а) на А б) на Б в) на В

Program s;

uses crt;

var

a, b, c, d, pa, pb, pc:real;

begin

writeln ('Введите А: ');

read (a);

writeln ('Введите В: ');

read (b);

writeln ('Введите C: ');

read (c);

d:=a+b+c;

pa: = (a/d) * 100;

pb: = (b/d) * 100;

pc: = (c/d) * 100;

writeln ('На А приходиться ', pa:2:2,' на В ', pb:2:2,' на С ', pc:2:2); / / значание округлены до 2 знаков

end.