\mnb150ÿ{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fprq2 System;}{\f3\fmodern\fprq1 Courier New;}{\f4\froman\fcharset1 Times New Roman;}} {\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green0\blue255;} \deflang1031\pard\ri4\plain\f4\fs22\cf0 01. \par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f3\fs22\cf1 {\pntext\f1\'b7\tab}karatsuba:=proc(x,y) \par \pard\li600\ri1\fi-300\plain\f3\fs22\cf1 local a,b,c,d,n,m,amalc,bmald; \par begin \par n:=length(x); \par m:=length(y); \par if min(n,m)<=1 \par then return(x*y) \par end_if; \par m:=max(n,m); \par n:=1; \par while n