var s: string;
i: integer;
begin
write('введите текст: ');
readln(s);
for i:=1 to length(s) do if s[i]='.' then s[i]:=',';
writeln('полученный текст:');
write(s);
end.
var s: string;
i: integer;
begin
write('введите текст: ');
readln(s);
for i:=1 to length(s) do if s[i]='.' then s[i]:=',';
writeln('полученный текст:');
write(s);
end.