написать программу на паскале: Опpеделить комбиниpованный тип для пpедставления анкеты студента-пеpвокуpсника, включающей в себя его фамилию (до 12 букв), номеp гpуппы (целое от 80 до 99), оценки по тpем пpедметам (химия, физика, пpогpаммиpование). Написать пpогpамму, котоpая pаспечатывает из этой инфоpмации название пpедмета, котоpый был сдан лучше всего.

Begin

    writeln('¶¶¶¶¶¶¶¶¶¶1');

    writeln('¶¶¶¶¶¶¶¶¶¶¶¶1');

    writeln('¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶');

    writeln('¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶');

    writeln('¶¶__¶¶¶__¶¶¶¶_¶¶¶¶¶¶¶¶');

    writeln('¶¶_¶¶¶¶_¶¶¶¶¶¶¶¶¶_¶¶¶¶¶1');

    writeln('¶_¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶1');

    writeln('¶_¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶1');

    writeln('¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶1');

    writeln('¶¶¶¶¶_¶¶¶¶¶¶¶__¶¶¶¶¶_¶¶¶¶¶');

    writeln('¶¶¶¶¶_¶¶¶¶¶¶¶¶¶_¶¶¶¶¶1');

    writeln('¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶');

    writeln('_¶¶1¶¶¶¶_¶¶¶¶¶¶¶¶¶¶1');

    writeln('_¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶1');

    writeln('__¶¶_¶¶¶¶¶¶_¶¶¶¶');

    writeln('__¶¶¶__¶¶¶¶¶¶_¶¶¶');

    writeln('__¶¶¶___¶__¶¶¶¶¶_¶¶¶¶');

    writeln('___¶¶¶¶¶_¶_¶¶¶¶¶¶_¶¶¶¶');

    writeln('___¶¶_¶¶¶¶¶1¶¶¶¶¶¶¶¶¶¶1');

    writeln('__¶__¶¶¶¶¶¶¶¶1¶¶¶¶¶¶¶¶¶¶¶1');

    writeln('_¶¶_¶¶¶¶_¶¶¶¶¶¶¶1¶¶¶¶¶_¶¶¶¶¶');

    writeln('_¶¶_0__0_¶¶¶¶¶¶¶¶¶¶¶¶1__¶¶¶¶__¶¶¶1');

    writeln('_¶¶_¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶¶1__¶¶¶¶_¶¶¶¶1');

    writeln('_¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶_¶¶¶1');

    writeln('__¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶_¶¶¶¶¶_¶¶¶1');

    writeln('___¶¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶__¶¶¶¶_¶¶¶¶1');

    writeln('¶¶¶_¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶__¶¶¶¶¶_¶¶¶1');

    writeln('¶¶¶¶¶¶___¶¶¶¶¶¶_¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');

    writeln('¶_¶¶¶¶¶¶¶¶¶_¶¶¶¶¶_¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');

    writeln('___1¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');

    writeln('__1¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');

    writeln('__1¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');

    writeln('__1¶¶¶¶¶_¶¶¶¶_¶¶¶¶__¶¶¶¶¶¶¶¶¶¶_¶¶¶_¶¶¶1');

    writeln('___1¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶_¶¶_¶¶_¶¶¶¶1');

    writeln('¶_¶¶¶¶¶_¶¶¶¶¶¶¶_¶¶¶¶¶¶¶_¶_¶¶_¶¶¶1');

    writeln('¶¶¶¶¶_¶¶¶¶¶¶¶¶_¶¶¶¶¶¶_¶_¶¶_¶¶1');

    writeln('¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶_¶¶_¶¶¶¶1');

    writeln('¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶_¶¶1');

    writeln('___¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶___¶¶¶___¶¶¶¶¶');

    writeln('__¶¶¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶');

    writeln('_¶¶¶¶¶¶¶¶¶¶¶¶¶');

    writeln('_¶___¶¶¶¶_¶¶¶¶');

    writeln('¶___¶¶¶¶_¶¶¶¶¶¶¶');

    writeln('¶¶¶¶_¶¶¶¶¶1¶¶');

    writeln('¶¶¶¶_¶¶¶¶¶¶¶¶¶_¶¶');

    writeln('¶¶¶¶_¶¶¶¶¶¶¶¶¶¶_¶¶');

    writeln('¶¶¶¶¶_¶¶¶¶¶¶¶¶¶_¶¶');

    writeln('¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶_¶¶');

    writeln('¶¶¶¶_¶¶¶¶¶¶¶¶¶_¶¶');

    writeln('¶¶¶¶_¶¶¶¶¶¶¶¶¶_¶');

    writeln('¶¶¶¶¶¶¶¶¶¶_¶');

    writeln('¶¶¶1¶¶¶¶¶');

    writeln('¶¶1¶¶');

    writeln('¶¶');

    writeln('¶¶');

end.

Подробнее - на -

#include <iostream>

using namespace std;

int amountNum(int a)

{

   int count = 0;

   while(a > 0)

   {

       a /= 10;

       count++;

   }

   return count;

}

bool check(int a)

{

   while(a > 0)

   {

       int k = a % 10;

       if(k % 2 != 0)

           return false;

       a /= 10;

   }

   return true;

}

int main()

{

   int num;

   cin >> num;

   if(amountNum(num) != 3)

   {

       cout << "Incorrect input";

       return 0;

   }

   if(check(num))

       cout << "YES";

   else

       cout << "NO";

}