составьте пожалуйста программу, в которой задаются три произвольные строки символов, а на экран выводится результат ихсклеивания.
progra, stroka; var s,stringg:string; begin writeln('daite pervoe stroka simbolov'); readln(stringg); writeln('daite 2-yu stroku'); readln(s); string:=string+s; s:=''; writeln('daite 3-yu stroku'); readln(s); string:=string+s; writeln('vse stroki:'); writeln(stringg); readln; end.