9 lines
154 B
Text
9 lines
154 B
Text
BEGIN
|
|
INTEGER PROCEDURE multiply(x, y);
|
|
INTEGER x, y;
|
|
BEGIN
|
|
multiply := x * y
|
|
END;
|
|
Outint(multiply(7,8), 2);
|
|
Outimage
|
|
END
|