You need to write a program to solve this problem. There are N students in the class. After the control it was received

You need to write a program to solve this problem. There are N students in the class. After the control it was received: A – fives, B – fours, C – twos. The rest are triplets. Find the percentage of triplets.

The program is written in Pascal:

Program test;
var n, a, b, c, d: integer;
begin
writeln (‘Enter n:’);
readln (n);
writeln (‘Enter A:’);
readln (a);
writeln (‘Enter B:’);
readln (b);
writeln (‘Enter C:’);
readln (c);
d: = n – (a + b + c);
writeln (‘Percentage of triplets:’ + d / (a + b + c) * 100);
end.