Вводятся оценки по физике и математике Выведи на экран «Молодец» если их сумма равна или более 9 в противном случае выведи «Подтянись».
uses crt-
var a,b:integer-
begin-
clrscr-
writeln(‘Введите оценки за контрольные работы пофизике и математике после каждого пред. Enter’)-
readln(a)-
readln(b)-
IF a + b >-= 9THEN writeln(‘Молодец !’) ELSE writeln(‘Подтянись’)-
end.