{Elaborati un program in care se creeaza doua variabile dinamice de tipul sir de caractere.
Atribuiti valori variabilelor create si afisati la ecran rezultatul concatenarii sirurilor respective.}
Program Tema_2_1_Probl_8;
var s1, s2: ^String;
begin
  writeln;
  writeln;
  writeln('Scrie doua siruri de caractere!');

  {Alocarea memoriei pentru doua siruri de caractere}
  new(s1);
  new(s2);

  {Citirea sirurilor de caractere de la tastiera}
  write('S1: '); readln(s1^);
  write('S2: '); readln(s2^);

  {Afisarea sirurilor concatenate}
  writeln;
  writeln('S1+S2: ');
  writeln(s1^ + s2^);
  
  {Eliberarea memoriei}
  dispose(s1);
  dispose(s2);

  readln;
end.