1.  Struktur Data Sederhana

Syntax:

program salam;

begin

    writeln ('Assalamu Alaikum');

    readln;

end.

Output:

 

2.     Struktur Data Terstruktur

Uses crt;

Var

NamaHari : array [1.. 7] of  string;

p: integer;

Begin

for p:= 1 to 7 do

begin

Write ('masukkan NamaHari ke',p, ':');

readln(NamaHari[p]);

End;

writeln;

writeln('NamaHari adalah :');

for p:= 1 to 7 do

writeln('hari ke', p,':', NamaHari[p]);

Readln;

end.