8 lines
115 B
ObjectPascal
8 lines
115 B
ObjectPascal
var
|
|
a: int64;
|
|
s: string;
|
|
|
|
begin
|
|
ReadLn(s);
|
|
if (s[1] = s[s.Length]) then write('äà') else write('íåò');
|
|
end. |