{Zadanie prikladu 2: Zostavte program, do ktoreho zadate meno a program meno otoci a vypise na obrazovku}

program Meno;
uses crt;
var
  Cstr_Meno : string;
  Cstr_1 : string;
  i : integer;
  dlzka_mena : integer;
  
begin
  clrscr;
  writeln('Zadaj meno');
  readln(Cstr_Meno);		{nacitanie vstupu}
  clrscr;
  dlzka_mena := length(Cstr_Meno);
  For i :=  dlzka_mena downto 1 Do
    begin
      Cstr_1 := Cstr_1 + Cstr_Meno[i];
    end;
  writeln(Cstr_Meno);	   	{vypisanie vystupu}
  writeln(Cstr_1);		{vypisanie vystupu}
  readln;
end.