Program Rekurze;

uses  CRT;

procedure Obratit;

var znak: char;

begin

read(znak);

if znak <> ' ' then   Obratit; {' ' mezera}



write(znak) { Vstup: DNES_      Vystup: _SEND }



end;



 begin

 clrscr;

 write('Zadej znak:');

  writeln;

 Obratit;

 Repeat until keypressed;

 end.