x : integer := 1 --globaalit
y : integer := 2
procedure add
x := x + y
procedure second(P : procedure)
x : integer := 2
P()
procedure first
y : integer := 3
second(add)
first() --pääohjelma
write integer(x)
(9 pistettä)
(10 pistettä)
(9 pistettä)