17 lines
325 B
ObjectPascal
17 lines
325 B
ObjectPascal
uses GraphWPF;
|
|
|
|
begin
|
|
Window.Title := 'Таблица умножения';
|
|
Font.Size := 16;
|
|
var n := 9;
|
|
var w := 40;
|
|
var (x0,y0) := (50,50);
|
|
for var i:=0 to n-1 do
|
|
for var j:=0 to n-1 do
|
|
begin
|
|
var (xx,yy) := (x0+i*w,y0+j*w);
|
|
Rectangle(xx,yy,w,w);
|
|
DrawText(xx,yy,w,w,(i+1)*(j+1));
|
|
end;
|
|
end.
|