1. В паскале напишите программу для определения победителя и его набранных баллов в финале конкурса лучший специалист

Определение победителя конкурса "лучший специалист электродорожник"
Объяснение: Для решения задачи необходимо написать программу на языке Паскаль, которая сравнит количество набранных баллов каждым участником и определит победителя. В программе нужно будет объявить переменные для баллов Иванова, Петрова и Сидорова (m1, n1, p1, m2, n2, p2, m3, n3, p3), а затем сравнить суммарные баллы каждого участника. Суммарные баллы можно получить, сложив баллы каждого участника в соответствующих турах. После сравнения необходимо вывести результат на экран - имя победителя и количество набранных им баллов.
Пример использования:

pascal

program SpecialistContest;

var

  m1, n1, p1, m2, n2, p2, m3, n3, p3: Integer;

  totalIvanov, totalPetrov, totalSidorov: Integer;



begin

  // Ввод баллов каждого участника

  m1 := 10;

  n1 := 15;

  p1 := 20;

  

  m2 := 12;

  n2 := 17;

  p2 := 22;

  

  m3 := 8;

  n3 := 13;

  p3 := 14;

  

  // Суммарные баллы каждого участника

  totalIvanov := m1 + n1 + p1;

  totalPetrov := m2 + n2 + p2;

  totalSidorov := m3 + n3 + p3;



  // Сравнение и определение победителя

  if (totalIvanov > totalPetrov) and (totalIvanov > totalSidorov) then

    writeln('Победитель: Иванов, Баллы: ', totalIvanov)

  else if (totalPetrov > totalIvanov) and (totalPetrov > totalSidorov) then

    writeln('Победитель: Петров, Баллы: ', totalPetrov)

  else if (totalSidorov > totalIvanov) and (totalSidorov > totalPetrov) then

    writeln('Победитель: Сидоров, Баллы: ', totalSidorov)

  else

    writeln('Ничья');

end.

Совет: Перед написанием программы внимательно прочитайте условие задачи и разберитесь, какие переменные и операции вам понадобятся для решения. Постарайтесь разделить решение на несколько логических шагов: ввод данных, рассчет суммарных баллов, сравнение и вывод результата. Это поможет вам лучше структурировать программный код и избежать ошибок.
Упражнение: Напишите программу на языке Паскаль, которая определит победителя и количество набранных им баллов для следующих данных: Иванов - 15, 20, 25; Петров - 18, 22, 20; Сидоров - 16, 24, 26.