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