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.
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.