Напишу программу на Паскале, если нужна на другом языке, можешь удалять.
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')
<span>Если </span>глухой удар барабана обозначить<span> чёрным кружочком, а </span>звонкий удар— светлым <span>… </span>Глухой удар обозначим на письме<span> буквой «А», а </span>звонкий<span> — буквой «В».
</span>
<h3>// PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>// Внимание! Если программа не работает, обновите версию!</h3>
begin
if ReadInteger('Введите x:').IsOdd then Print('Это нечетное число')
else Print('Это четное число')
end.
Можно заменить на
read(x1,y2,x3,x4);