2 игрока бросают 4 кубика 11 гранных,побеждает тот,у которого сумма меньше​

Паскаль не помню, но как решить задачу могу объяснить.

дано две противоположенные вершины прямоугольника
(x1,y1) и (x2,y2)
прямоугольник при этом будет ровно один

проверка на принадлежность точки этому прямоугольнику проста

пусть x,y -это координаты точки

вначале надо проверить кто больше x1 или x2, и y1 или y2
if (x1>x2) {
    rx1 = x2; rx2 = x1;
} else {
    rx1 = x1; rx2 = x2;
}
if (y1>y2) {
    ry1 = y2; ry2 = y1;
} else {
    ry1 = y1; ry2 = y2;
}

if (x>rx1) and (x<rx2) and (y>ry1) and (y<ry2) {
  точка с координатами X, Y лежит внутри прямоугольника.
}

if (x=rx1) or (x=rx2) or (y=ry1) or (y=ry2) {
  точка с координатами X, Y лежит на одной из граней прямоугольника.
}

Теперь осталось написать

PROGRAM
BEGIN
readln(координаты)
проверки
writeln(ответ)
END.

#include <cstdlib>
#include <iostream>

 

using namespace std;

 

int NOD( int a, int b)
{
   int c=1;

   int d;

   if(a>b)

    d=b;

   else

    d=a;
   for(int j=1;j<=d;j++)
   {
    if(a%j==0 && b%j==0)
    c=j;       
   }
   return c;     
}

 

int main()

{

 int A,B,C;

 cout<<"Введите А"<<endl;

 cin>>A;

 cout<<"Введите В"<<endl;

 cin>>B;

 cout<<"Введите С"<<endl;

 cin>>C;

 cout<<"НОД("<<A<<","<<B<<","<<C<<")="<<NOD(NOD(A,B),C)<<endl;

 system("PAUSE");

 return 0;

}

 

 

 

 

(Код написан на С++.)