program membalikan_kata;
uses wincrt;
var
s,t,u,v,w,x,y,z:string;
p,q,i,j,k:integer;
begin
clrscr;
writeln (' Nama : MUKLISIN ');
writeln (' Nim : 11295100 ');
writeln ('==================================');
writeln;
writeln ('masukan kalimat yang akan dibalik: ');
readln(s);
p:=length(s);
i:=1;
for q:=p downto 1 do
begin
insert(s[q],t,i);
inc(i);
end;
writeln(t);
end.
hasilnya:
