К каждой задаче подберите программный код, который явлется ее решением

• Объекты 1
  • Даны два числа. Определить какое из них больше.
  • Определить является ли число нечетное
  • Определить оканчивается ли число цифрой 7.
  • Дано двузначное число. Определить кратно ли трем произведение его цифр
  • Является ли число четырехзначным
  • Дано трехзначное число. Верно ли, что все его цифры одинаковые?
• Объекты 2
  • if A>B then
    m := A
    else m := B;
  • if x mod 2 <> 0 then
    writeln\('Да'\)
    else writeln\('Нет'\);
  • if x mod 10 = 7 then
    writeln\('Да'\)
    else writeln\('Нет'\);
  • c1 := x div 10;
    c2 := x mod 10;
    if \(c1\*c2\) mod 3 = 0 then
    writeln\('Да'\) else writeln\('Нет'\);
  • if \(x\\gt 999\) and \(x\\lt 10000\) then
    writeln\('Да'\) else writeln\('Нет'\)
  • c1 := x div 10; c2 := x mod 10;
    c3 := \(x mod 100\) div 10;
    if \(c1=c2\) and \(c2=c3\) then     writeln\('Да'\)
    else writeln\('Нет'\)