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

Программа написана на языке Паскаль:

Program test;

var n, a, b, c, d:integer;

begin

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

readln (n);

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

readln (a);

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

readln (b);

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

readln (c);

d : = n - (a+b+c);

writeln ('Процент троек: '+d / (a+b+c) * 100);

end.