program revers;
uses crt;
var imie_i_nazwisko:string;
i:integer;
begin
clrscr;
writeln('Podaj imi© i nazwisko:');
readln(imie_i_nazwisko);
for i:=length(imie_i_nazwisko) downto 1 do
begin
write(imie_i_nazwisko[i]);
end;
readln;
end.
program revers;
uses crt;
var imie_i_nazwisko:string;
i:integer;
begin
clrscr;
writeln('Podaj imi© i nazwisko:');
readln(imie_i_nazwisko);
for i:=length(imie_i_nazwisko) downto 1 do
begin
write(imie_i_nazwisko[i]);
end;
readln;
end.