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

Program s; uses crt; vara,b,c,d,pa,pb,pc: real; beginwriteln ('Введите А: '); 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.