10 lines
154 B
Text
10 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
|