Напишите игру "рулетка" на паскаль!
принцип:
1-ставка на четное
2-ставка на нечетное
3-ставка на черное
4-ставка на красное
5-37 цифр
изночально даётся 1 бонуса
коф на чет/нечет/крас/чёрное х2, а на цифру х50

Var       
i, a, b, c: integer;

function check_is(a, b, c: integer):
 boolean;
begin     
 if a >= b + c then check_is := false
else        if b >= a + c then
 check_is := false else     
  if c >= a + b then check_is := false else     
         check_is := true;           
       end;
procedure check_how(a, b, c: integer);begin 
     if ((a = b) and (b = c) and (a = c)) then writeln('равносторонний') else   
    if ((a = b) or (b = c) or (a = c)) then writeln('равнобедренный') else              writeln('разносторонний');     
  end;

begin     
 writeln('Введите стороны треугольника');   
    read(a, b, c);   
    if check_is(a, b, c) then check_how(a, b, c) else writeln('Нет такого треугольника!');          
   end.

#include <iostream>

using ll = long long;

using ld = long double;

#define yes cout << "YES" << "\n"

#define no cout << "NO" << "\n"

#define three cout << "Равносторонний"

#define two cout << "Равнобедренный"

#define one cout << "Разносторонний"

using namespace std;

bool exist(ll a, ll b, ll c){

   return (a + b > c) && (a + c > b) && (b + c > a);

}

void type(ll a, ll b, ll c){

   if(a == b && b == c)

       three;

   else if(a == b || b == c || a == c)

       two;

   else

       one;

}

signed main() {

   ll a,b,c;

   cin >> a >> b >> c;

   if(exist(a,b,c)){

       yes;

       type(a,b,c);

   } else

       no;

}