var a,c:string; I:integer; Begin Randomize; Writeln ('введи фразу'); Readln (a); c:=''; For I:=1 to Length(a) do begin c:=c+a+chr(random(32)+224); end; Write (c); End.