program m1; function cloneChar(s :string; count :integer) :string;var i :integer; st :string;begin st := ''; for i:= 1 to count ... Читать дальше »