Вбиблиотеке n учебников по 7 класса, хватит ли их, чтобы обеспечить 3 класса, если кол-во учеников a, b, c нужно написать программу в паскале

program

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

begin

write('Введите кол-во учеников в классах:');

read(a,b,c);

writeln('Введите кол-во учебников в библиотеке:');

read(n);

d:=a+b+c;

if (n>=d) then writeln('Учебников хватит.')

else writeln('Учебников не хватит.')

end.