Program Renverser_ch;
Var p : Integer;
chr, chd : String;
Begin
Writeln ('Saisir une phrase');
Readln (chd) ;
chr := '';
p := POS(' ', chd);
While p <> 0 Do
Begin
chr := ' ' + COPY (chd, 1, p-1) + chr;
DELETE (chd, 1, p);
p := POS (' ', chd);
End;
chr := chd + chr;
Writeln ('Phrase renversée est : ', chr);
End.