Soru 06: Girilen mesajı tersten yazan program

 

{Girilen mesajı tersten yazan program}

program ters_yazi;

uses crt;

var

  mesaj, tersmesaj:string;

  i, l:integer;

begin

  clrscr;

  write('Tersten yazılacak yazıyı giriniz :');

  readln(mesaj);

  l:=length(mesaj);

  for i:= l downto 1 do

    tersmesaj:=tersmesaj+copy(mesaj, i, 1);

  writeln('Girilen yazının tersten yazılışı :');

  write(tersmesaj);

  readkey;

end.