В метании молота состязается n спортсменов. каждый из них сделал m бросков. победителям считается тот спортсмен, у которого сумма результатов по всем броскам максимальна.

Program metanie;

var

a, b, s, d : integer;

begin

writeln ('пусть будет 2 спортсмена') ;

writeln ('сколько 1 спортсмен сделал бросков') ;

readln (a) ;

writeln ('сколько 1 спортсмен сделал бросков') ;

readln (b) ;

if a>b then

writeln ('1 выиграл'' ', a)

else

writeln ('2 выиграл'' ', b) ;

end.