Соединение 2х строк

Посмотреть архив целиком
program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;
var st1,st2:string;
begin
writeln('Vvedite stroku 1');
readln(st1);
writeln('Vvedite stroku 2');
readln(st2);
insert(st1,st2,2);
writeln(st2);
readln;
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.