К финалу конкурса лучшего по профессии "Специалист электронного офиса"
были допущены трое: Иванов, Петров, Сидоров. Соревнования проходили в
три тура. Иванов в первом туре набрал m1 баллов, во втором - n1, в
третьем - p1. Петров - соответственно m2, n2, p2. Сидоров - m3, n3, p3.
Составьте программу, определяющую, сколько баллов набрал победитель.
|
writeln('Введите количество очков Иванова: ');
write('I тур - '); readln(m1);
write('II тур - '); readln(n1);
write('III тур - '); readln(p1);
writeln('Введите количество очков Петрова: ');
write('I тур - '); readln(m2);
write('II тур - '); readln(n2);
write('III тур - '); readln(p2);
writeln('Введите количество очков Сидорова: ');
write('I тур - '); readln(m3);
write('II тур - '); readln(n3);
write('III тур - '); readln(p3);
summa1:=m1+n1+p1;
summa2:=m2+n2+p2;
summa3:=m3+n3+p3;
max:=summa1;
if max<summa2 then max:=summa2;
if max<summa3 then max:=summa3;
writeln('Победитель набрал - ',max,' очков!');
END.