Составте программу которая после каждого символа вставляет пробел
Program chik; var a,b:string; i,l:integer; begin readln(a); b:=''; l:=length(a); for i:=1 to l do begin b:=b+a[i]+' '; end; writeln(b); end.