Помогите решить задачу!

Вычислить выражение с использованием стандартных функций языка Pascal:

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

Var N, A, B, C : integer;

begin

writeln ('Количество человек в классе:') ; readln (N) ;

writeln ('Количество пятёрок:') ; readln (A) ;

writeln ('Количество четвёрок:') ; readln (B) ;

writeln ('Количество троек; ') ; readln (C) ;

writeln ('Процент пятёрок: ', A*100 div N,'% ', 'Процент четвёрок: ', B*100 div N, '% ', 'Процент троек: ', C*100 div N, '% ') ; readln;

end.