задача в паскале

[Alyonka]

Не могу найти ошибку.
Условие:
Напишите программу, которая выводит на экран последовательность чисел: 3, 6, 12, 24... не более указанного числа N.

program z1v4;         
uses crt;              
var  n :integer;
 x, a, b  :real;  
begin                 
clrscr;               
writeln ('введите n');
readln (n);
x:=1;
repeat
b:=exp(2*ln(x-1))*3;
write( b, ' ');
x:=x+1;
until b=n+1;
write (b);
readkey;              
end.

[Novi4ok_11]

until b>n;

[Alyonka]

Все равно не получается. Пишет: "Error 207: Invalid floating point operation"

[Novi4ok_11]

Это в формуле
b:=exp(2*ln(x-1))*3;
Ошибка

x:=1;

Такого быть не может нада

x:=2;

хотя бы
Так как тогда Ln(0) берется

program z1v4;
uses crt; 
var n :integer;
x, a, b :real;
begin 
clrscr; 
writeln ('введите n');
readln(n);
x:=2;
repeat
b:=exp(2*ln(x-1))*3;
write( b, ' ');
x:=x+1;
until b=n+1;
write (b);
readkey; 
end.

[Alyonka]

Это я исправила, но, похоже, там где-то ошибка в самой формуле. Вместо 3, 6, 12, 24... он выводит 3, 12, 27...

[Novi4ok_11]

program z1v4;
uses crt; 
var n,b :integer;
begin
clrscr; 
writeln ('введите n');
readln(n);
b:=3;
Write(b,' ');
repeat
b:=b*2;
write( b, ' ');
until b>=n;
readkey;
end.

Если нада вывести 3 6 12 24 48 96 ...

[unbanned]

а если так:

var
n,m:integer;
begin
write('Введите N:');
readln(n);
m:=3;
while m<n do begin
writeln(m);
m:=m+m;
end;
end.

Сообщение от Novi4ok_11

program z1v4;

Если нада вывести 3 6 12 24 48 96 ...

если ввести N=49 то у тебя выведет 3 6 12...96
а 96>49... т.е. 96>N

[Alyonka]

Novi4ok_11, числа, теперь получаются правильные, но он почему-то выводит еще и то число, которое превышает N.
Например, N=50, то результат должен быть 3, 6, 12, 24, 48, а он еще выводит 96.

[andrewpalkin]

program z1v4;
uses crt; 
var n,b :integer;
begin
clrscr; 
writeln ('введите n');
readln(n);
b:=3;
repeat
Write(b,' ');
b:=b*2;
until b>=n;
readkey;
end.

[Alyonka]

Всё! Заработало! Спасибо вам большое! =) Чмок!