Напишите программный код, который создает масштаб 600 x 800 и рисует его зеленым

var  

x, y: integer;

n: integer;

sum: integer;

mindif: integer;

f: text;

begin

   assign(f,'C:\27-A.txt');

   reset(f);

   readln(f, n);

   sum := 0;

   mindif := 20001;

   while not eof(f) do begin

       readln(f, x, y);

       if x > y then  

           sum := sum + x

       else  

           sum := sum + y;

       if (abs(x - y) < mindif) and (abs(x-y) mod 3 <> 0) then mindif := abs(x-y);

   end;

   if sum mod 3 <> 0 then

       writeln(sum)

   else

       writeln(sum - mindif);

end.

Объяснение:

Решение 1:

nominative = 1  # окончания им.падеж: гриб

generative = [2, 3, 4]  # список окончаний род.падеж: гриба

plural_generative = [5, 6, 7, 8, 9, 0]  # список окончаний род.падеж множ-го: грибов

for number in range(0, 51):  # цикл с значением от 0 до 51

   """number % 10  возвращает последнюю цифру из числа"""

   if (number % 10) == nominative:  

       print(f"{number} гриб")

   elif (number % 10) in generative:

       print(f"{number} гриба")

   elif (number % 10) in plural_generative:

       print(f"{number} грибов")

Решение 2:

nominative = 1  # окончания им.падеж: гриб

generative = [2, 3, 4]  # список окончаний род.падеж: гриба

for number in range(0, 51):  # цикл с значением от 0 до 51

   """number % 10  возвращает последнию цифру из числа"""

   if (number % 10) == nominative:

       print(f"{number} гриб")

   elif (number % 10) in generative:

       print(f"{number} гриба")

   else:

       print(f"{number} грибов")

Объяснение:

В комментариях.