1.Perhatikan program berikut ini:
var
i:integer;
procedure hitung;
var
j:integer;
begin
j:=0;
while j<10 do
begin
i:=i+2;
j:=j+1;
end;
if i<=30 then hitung;
i:=i-2;
end;

begin
i:=1;
hitung;
write(‘Nilai i = ‘,i);
end.

a. Dapatkan anda jelaskan mengapa procedure hitung diatas dikatakan rekursif?
b. Berapakah nilai yang dicetak pada output?

2. Tentukan output program berikut ini:
var
a,b,c:^integer;
begin
new(a);new(b);new(c);
a^:=5;b^:=10;c^:=15;
a^:=b^;
b^:=7;
b^:=c^;
writeln(a^,b^,c^);
end.

3. Buatlah deklarasi tipe sebuah struktur data simpul yang dapat dipakai untuk menyimpan data2:
Nomor Induk Mahasiswa, Nama Mahasiswa dan Alamat Mahasiswa.