8 lines
112 B
ObjectPascal
8 lines
112 B
ObjectPascal
program EthiopianMultiplication;
|
|
|
|
uses
|
|
Multiplication;
|
|
|
|
begin
|
|
WriteLn('17 * 34 = ', Ethiopian(17, 34))
|
|
end.
|