. Pengujian program

read(x);

while x <> 9999 do begin

if x < 0 then

writeln(‘Masukan tidak boleh

negatif’)

else

x:=x+10;

read(x); end; writeln(x);

keterangan:

 

Keterangan:

1 : read(x)

2 : x <> 9999

3 : x < 0

4 : writeln(‘Masukan tidak boleh negatif’);

5 : x := x + 10

6 : read(x)

7 : writeln(x)