Определить является-ли треугольник равностронним, если известны длины его сторон. составить блок-схему

Блок-схема - в прилагаемом файле.

1. #include
using namespace std;
int main (){
int a, b;
cout << "Введите числа: " << endl;
cin >> a >> b;
if (a < b){
cout << "Минимальное число - первое." << endl;
}
else if (a==b){
cout << "Числа равны." << endl;
}
else {
cout << "Минимальное число - второе." << endl;
}
}

2. #include
using namespace std;
int main (){
int a;
cout << "Сколько часов играет Тим?" << endl;
cin >> a;
if(a >= 8){
cout << "Тим здоров." << endl;
}
else {
cout << "Тим болен." << endl;
}
}

Текст программы (Pascal)
var
  a,b,c,d,e:byte;
  k:integer;
begin
  k:=0;
  for a:=1 to 9 do begin
    for b:=0 to 9 do
      if b<>a then begin
        for c:=0 to 9 do
          if (c<>a) and (c<>b) then begin
            for d:=0 to 9 do
              if (d<>a) and (d<>b) and (d<>c) then begin
                e:=0;
                repeat
                  if a*c-c*e=a-b+c+d+e then Inc(k);
                  e:=e+2
                until e<9
              end
          end
      end
  end;
  Writeln(k)
end.

Тестовое решение:
190