ИНФОРМАТИКА ПОЖАЛУЙСТА
составьте программу которая заменяет все пробелы заданными символами

vars:string;b:char;i,n:integer;beginwriteln('Введите текст');readln(s);writeln('Введите символ');readln(b);n:=length(s);for i:=1 to n doif s[i]=' '  then s[i]:=b;writeln(S);end.