34 lines
522 B
ObjectPascal
34 lines
522 B
ObjectPascal
var
|
|
alpha := ('a'..'z') + ('A'..'Z');
|
|
|
|
procedure reverseWord(var ch: char);
|
|
begin
|
|
var nextch := readChar();
|
|
if nextch in alpha then reverseWord(nextch);
|
|
write(ch);
|
|
ch := nextch;
|
|
end;
|
|
|
|
procedure normalWord(var ch: char);
|
|
begin
|
|
write(ch);
|
|
ch := readChar();
|
|
if ch in alpha then normalWord(ch);
|
|
end;
|
|
|
|
begin
|
|
var ch := readChar();
|
|
|
|
while ch <> '.' do
|
|
begin
|
|
normalWord(ch);
|
|
if ch <> '.' then
|
|
begin
|
|
write(ch);
|
|
ch := readChar();
|
|
reverseWord(ch);
|
|
end;
|
|
end;
|
|
write(ch)
|
|
end.
|