Дано число р. Если данное число больше нуля, то его увеличь в t раз. Если данное число меньше нуля, то прибавь к нему число K, если данное число равно нулю, то уменьши его на величину z. Даны стороны треугольника a,b,c. Определите, является ли треугольник равнобедренным
Даны стороны треугольника a,b,c. Определите, является ли треугольник равносторонним
в приложении Python

N1
var a, b: integer;

•​ begin

•​ readln(a, b);

•​ a := a mod 2;
b := b mod 2;
•​ if (b > 0) and (a > 0) then

•​ writeln ('четных чисел нет')

•​ else

•​ writeln ('четное число есть');
end.

N2

#include <iostream>

using namespace std;

int main()
{
  int a;
  cin >> a;
  if(a < 100 || a > 999) cout  << "Неверное число" << endl;
  else
  {
    int a1 = a/100;
    int a2 = (a/10)%10;
    int a3 = a%10;
    if(a1%2==a2%2==a3%2==0) cout << "Да" << endl;
    else cout << "Нет" << endl;
  }
  return 0;
}

Program colors;
Uses crt;

var color: integer;
label l1;

Begin clrscr;
      l1: write('Введите номер цвета color = ');
          readln(color);

          case color of 0: writeln('Черный');
                        1: writeln('Синий');
                        2: writeln('Зеленый');
                        3: writeln('Голубой');
                        4: writeln('Красный');
                        5: writeln('Фиолетовый');
                        6: writeln('Коричневый');
                        7: writeln('Светло-серый');
                        8: writeln('Темно-серый');
                        9: writeln('Ярко-синий');
                        10: writeln('Ярко-зеленый');
                        11: writeln('Ярко-голубой');
                        12: writeln('Розовый');
                        13: writeln('Малиноый');
                        14: writeln('Желтый');
                        15: writeln('Белый');

          else
          begin
               writeln('Непривильный номер цвета');
               writeln;
               goto l1;
          end;
          end;
      readln;
End.