PascalABC.NET
// 1
begin
var s := ReadlnString;
if s[1] = s[7] then
Print('Да')
else
Print('Нет')
end.
//3
if s.Length mod 5 = 0 then
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.