Uses GraphABC;
Var x,r,y:integer;
Procedure Kvadrat;
begin
rectangle(x,y,x+r,y+r);
end;
begin
SetWindowSize(600,100);
setbrushstyle(bsclear);
y:=100; x:=100;
r:=25;
while r<300 do
begin
Kvadrat;
r:=r+25
end;
End.
как из этого сделать чтобы маленький квадрат был в центре ?
Var a, i, n, sum: integer;
Degin
ReadLn(a, n);
Sum := 1;
For i := 1 to n do sum := sum * a;
WriteLn(sum);
End.
WHILE
Var a, i, n, sum: integer;
Begin
Read(a, n);
Sum := 1;
While i <> n do
Begin
Sum := sum * a;
Inc(i);
End;
Writeln(sum);
End.
REPEAT
Var a, i, n, sum: integer;
Begin
Read(a, n);
Sum := 1;
If n <> 0 then
Repeat
Begin
Sum := sum * a;
Inc(i);
End;
Until i = n;
WriteLn(sum);
End.