К финалу конкурса лучшего по профессии «Специалист электронного офиса» были допущены трое: Иванов, Петров, Сидоров. Соревнования проходили в три тура. Иванов в первом туре набрал m1 баллов, во втором — n1, в третьем — p1. Петров — соответственно m2, n2, p2. Сидоров — m3, n3, p3. Составьте программу, определяющую, сколько баллов набрал победитель — Pascal(Паскаль)

VAR
  m1,m2,m3,n1,n2,n3,p1,p2,p3,summa1,summa2,summa3,max:word;
BEGIN
  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.