Задача Паскаль

[Poma][a]

Что не понятно?

const 
	n = 15;

var
	a, i : Integer;
begin
	a := 1;
	
	for i:=1 to n do begin
		a:=a*2;
		writeLn (a, ' ', i*3); 
	end
end.

Или так.. и 5 тебе обеспечено, если разберешься..

const 
	n = 45;

var
	i : LongInt;
begin
	for i := 1 to n do 
		writeLn (i, '   ', 1 shl (i div 3))
end.

[luckytox]

Сообщение от Poma][a

Что не понятно?

const 
	n = 15;

var
	a, i : Integer;
begin
	a := 1;
	
	for i:=1 to n do begin
		a:=a*2;
		writeLn (a, ' ', i*3); 
	end
end.

Или так.. и 5 тебе обеспечено, если разберешься..

const 
	n = 45;

var
	i : LongInt;
begin
	for i := 1 to n do 
		writeLn (i, '   ', 1 shl (i div 3))
end.

да 5 мне и не надо)
это,как мне ограничить вычисление онёб?

И кстати.Спасибо огромное за помощь!