Вводятся оценки за контрольную работу по физике и математике . Выведите ** экран...

Question

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

Answer 1

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

end.