Pascal программирование 15 % отличники 50 % хорошисты 35 % ударники сколько учеников в классе

Program abc;
var a, b, c: integer;
begin
a:=15;
b:=50;
c:=35;
write(a+b+c, 'Всего учеников');
end.