Dze je subor www.TrSek.com/zadania/meno.pas{ MENO.PAS }
{ Vyziada si meno otoci ho a vypise. }
{ }
{ Author: Juraj Pupak }
{ Date : 27.10.2006 http://www.trsek.com }
program Meno;
uses crt;
var
Cstr_Meno : string;
Cstr_1 : string;
i : integer;
dlzka_mena : integer;
begin
clrscr;
writeln('Zadaj meno');
readln(Cstr_Meno);
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);
writeln(Cstr_1);
readln;
end.