RosettaCodeData/Task/Ethiopian-multiplication/Object-Pascal/ethiopian-multiplication-2.object
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

8 lines
112 B
Text

program EthiopianMultiplication;
uses
Multiplication;
begin
WriteLn('17 * 34 = ', Ethiopian(17, 34))
end.