В классе N- учеников по контрольной получили A- пятерок , B- четвёрок , C- троек .Найти процент A,B,C

Program zadanie; Var a,b,c:real;       n:integer; Begin  Writeln('Введите количество учеников');  Readln(n);  Writeln('Введите количество пятёрок в классе');  Readln(a);  a:=n/100*a;  Writeln('Введите количество четвёрок в классе');  Readln(b);  b:=n/100*b;  Writeln('Введите количество троек в классе');  Readln(c);  c:=n/100*c;  Writeln('Процент пятёрок в классе:',a);  Writeln('Процент четвёрок в классе:',b);  Writeln('Процент троек в классе:',c); End.