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

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

end.