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

var A, B :integer;beginwriteLn('введите оценку по физике');readln(A);writeLn('введите оценку по математике');readln(B);If (A+B)>=9 then writeln('молодец') else writeln('подтянись');end.