Question

Дано слово. Определить, одинаковы ли второй и четвертый символы в нем.

Answer 1

Var s:string;
b:boolean;
begin
readln(s);
b:=false;
if s[2]=s[4] then b:=true;
Writeln(b);
end.