pascal : program pembalik kata

   Program kali ini sebenarnya prinsipnya hampir sama dengan program yang sebelumnya sudah  pernah dibahas di blog ini, yang ada di sini.
  Sebagai contoh, kalau kita input "saya bermain" maka yang keluar adalah "niamreb ayas". simple kan

ok, langsung saja, ini dia list scriptnya :

var a,d:string b,c:integer;
begin
read(a);
b:=length(a);
for c:=b downto 1 do begin
d:=d+a[c];
end;
writeln(d);
end. 


Sekali lagi, logika dari script di atas sebenarnya sama dengan yang ada di sini