program Zigma;
uses crt;
var x,n:integer;
Z:real;

begin
clrscr;
writeln;
writeln(' PROGRAM MENGHITUNG ZIGMA 1/X UNTUK i=1 S.D i=20');
writeln('=============================================================');
writeln;

x:=1;
Z:=1;

for n:=1 to 20-1 do
begin

write('1/',x,' + ');

x:=x+1;
Z:=Z+(1/x);

if n=20-1 then
begin
write('1/',x,' = ',Z:2:2);

end;

end;
writeln;
writeln;
writeln(' presented by :');
writeln(' Elin Herlinawati 070767');

readln;
end.

Tampilan dalam turbo pascal :