procedure Otakatik(j: integer; k: integer);
Var i: integer;
begin
for i := 1 to 10 do begin
if (j < 0)
then
if (k > 0)
then j := j + k
else k := -j + k
else
if (k < 0)
then j := -j - k
else k := j - k;
end;
writeln(j,’ ‘,k);
end;

Jika prosedur tsb dipanggil dengan perintah Otakatik(35,-10) berapakah harga yang dicetak perintah writeln(j,'',k)?