Contoh Program Paskal Menggunakan Length dan Copy

uses crt;
var A,B : string; E:integer;
begin
clrscr;
A:='bahasa';B:='pascal';
for E:= 1 to length (B) do
write(copy(A,E,1));
readln;
end.


Hasil:

bahasa



Sumber : Pra UTS ATA 2011//2012 Algoritma & Pemprograman 2