Ответ: HELP
var
input,output:string;
i:byte;
Begin
Readln(input);
output:=copy(input, 1, pos(' ', input));
delete(input,1, pos(' ', input));
for i:=1 to 2 do
begin
output:=output+' '+input[1]+'.';
delete(input,1, pos(' ', input));
end;
Writeln(output);
END.