uses crt; var a,b,c,d:string; begin a:='мама'; writeln('Первая строка: ',a); b:='лоток'; writeln('Вторая строка: ',b); c:='кот'; writeln('Третья строка: ',c); d:=(copy(a,1,1)+copy(c,2,1)+copy(b,1,5)); writeln('Четвёртая строка: ',d); end.