Вводятся оценки за контрольную работу по физике и математике. Выведите на экран "Молодец", если их сумма равна или более 9, иначе - "Подтянись"

Var A, B : integer;

begin

writeLn ('введите оценку по физике');

readln (A);

writeLn ('введите оценку по математике');

readln (B);

If (A+B) >=9 then writeln ('молодец') else writeln ('подтянись');

end.