Понадобится 2 формулы:
1)N=p^i где p=2, а N=678
2)I=n*i где n=200, а i=(найденое значение из 1 формулы).
Решение:
1)678=2^i i=10 бит.
uses graphabc;
var i: integer;
procedure Triangle(x1, y1, x2, y2, x3, y3: integer);
begin
line(x1, y1, x2, y2);
line(x2, y2, x3, y3);
line(x3, y3, x1, y1)
end;
begin
setwindowsize(600, 300);
for i := 0 to 5 do
Triangle(0 + i * 100, 200, 50 + i * 100, 100, 100 + i * 100, 200);
end.