Составьте пожалуйста программу, в которой задаются три произвольные строки…

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.