Строки в Delphi

[Sanprof]

Вот пожалуйста все работает на ура

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var str1,str2 : string; n : integer;
begin
writeln('write first line'); Readln(str1);
 writeln('write second line'); Readln(str2);
 Writeln('vvedite N'); Readln(n);
 insert(str2+' ',str1,(n+(n-1)));
 Writeln('Result '+str1);
 readln;
end.

123.jpg

[Sanprof]

воспользуйтесь моим кодом он проще и быстрее

[534]

Спасибо огромное)))