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