procedure TForm1.Button1Click(Sender: TObject);
var
n1,n2,c,codigo:Integer;
i: Integer;
desde, hasta: integer;
begin
Memo1.Lines.Clear;
val(Edit1.Text,n1,codigo);
val(Edit2.Text,n2,codigo);
Memo1.Lines.Add('Tablas de multiplicar');
if n1 < n2 then
begin
desde := n1;
hasta := n2;
end
else
begin
desde := n2;
hasta := n1;
end;
for i := desde to hasta do
begin
c:=1;
while c<=10 do
begin
Memo1.Lines.Add(
Format('%0:d x %1:d = %2:d', [i, c, i*c]));
c:=c+1;
end;
Memo1.Lines.Add('--------------------')
end;
end;