Código Delphi [-] var a,i,b:integer; begin a:=Strtoint(edit1.text); for i:=1 to 10 do begin b:=a*i; memo1.lines.add(inttostr(b)); end; end;
var a,i,b:integer; begin a:=Strtoint(edit1.text); for i:=1 to 10 do begin b:=a*i; memo1.lines.add(inttostr(b)); end; end;