Напишу программу на Паскале, если нужна на другом языке, можешь удалять.

program ball ;

var

a, b:string ;

c, d, z: integer ;

begin write ( 'введите фамилию, имя и баллы по двум предметам' ) ; read ('a', 'b', c, d)

z:=c+d

if z<30

then writeln ('a', 'b')