Решить, вариант 1,номер 1 и 3.паскаль

PascalABC.NET

// 1

begin

 var s := ReadlnString;

 if s[1] = s[7] then

   Print('Да')

 else

   Print('Нет')

end.

//3

begin

 var s := ReadlnString;

 if s.Length mod 5 = 0 then

   Print('Да')

 else

   Print('Нет')

end.