Помогите с задачей на паскале.

Question

Ребят помогите пожалуйста написать программу на паскале. Очень надо. 
 
Составить программу, которая выведет на экран все члены убывающей геометрической последовательности, с первым членом В и знаменателем Q равно 0,3 большее числа 1 
 
Я в этом ничего не понимаю, а завтра сдать надо. Огромное спасибо.

Ирина · Accepted Answer

program N86778562; 
const 
 Q = 0.3; 
var 
 B: double; 
begin 
 write('Введите значение первого члена B: '); 
 readln(B); 
 writeln('Геометрическая прогрессия: '); 
 while B > 1 do 
 begin 
 write(B:8:3); 
 B := B * Q 
 end; 
 readln 
end.

Сеймур Мисирханов · Answer

b:=2; q:=0.3; 
for i:=1 to 5 do begin 
b:=b*q; 
writeln(b:5:3); end;