8 lines
81 B
ObjectPascal
8 lines
81 B
ObjectPascal
var
|
|
a: int64;
|
|
s: string;
|
|
|
|
begin
|
|
ReadLn(s);
|
|
write(s[3], s[s.Length]);
|
|
end. |