Вклассе 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.