Сделайте сор1 по информатике 2 четверть​

Program pr;
uses crt;

Var mas:array[1..1000, 1..1000] of integer;
N,M,i,j,k:integer;

Begin
Writeln('Введите размер матрицы N*M');
Write('N = ');
readln(N);
Write('M = ');
readln(M);

if (M>1000) or (N>1000) or (M<1) or (N<1)
then  
Writeln('Ошибка, указанные значения выходят за пределы матрицы')   else   
        Begin      
 Writeln('Введите элементы матрицы');      

k:=0; 
 for i:=1 to N do     
  for j:=1 to M do     
    Begin     
      readln(mas[i,j]);       
      if (mas[i,j] mod 2 = 0) then k:=k+1;     
    end; 
  
    Writeln();   
    Writeln('Исходная матрица');
   
   for i:=1 to N do   
     Begin     
       for j:=1 to M do     
          Begin     
             Write(mas[i,j], ' ')     
           end;     
      Writeln();   
     end;         

Writeln();   
Writeln('Количество четных элементов = ',k);      
 end;

readln;
end.

Первая задача:

class_a, class_b, class_c = int(input("Сколько детей в А классе? ")), int(input("Сколько детей в Б классе? ")), int(input("Сколько детей в В классе? "))

print("Для класса А нужно купить " + str(round(class_a / 2)) + " парт.\nДля Б " + str(round(class_b / 2)) + " парт.\nДля В " + str(round(class_c / 2)) + " парт.")

Объяснения:

Нам известно, что за каждой партой могут сидеть два ученика.

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

Дальше мы делим количество учеников каждого класса на два и округляем функцией round(число).

Вторая задача:

km = int(input("Сколько км машина проезжает в день?"))

path = int(input("Какова длина маршрута?"))

print("Машина проедет путь за " + str(path/km) + " дня(ей).")

Объяснения:

По условиям задачи запрашиваем, сколько км проезжает машина за день и длину маршрута.

Далее мы делим длину маршрута на км/день и получаем ответ на нашу задачу.

3ую задачу не решил, извиняюсь