Ответ: Решение снизу, могут быть ошибки в компиляции, но в целом все верно

Объяснение:

program z3;

var a,b,c:integer;

Begin

readln(a,b);

s:=a+b;

if s>300 then writeln('Не хватит')

   else writeln ('Хватит, останется: ', 300-s);

end.