Программа по блок-схеме - Turbo Pascal

Формулировка задачи:

Помогите пожалуйста необходимо написать программу по заданной блок схеме и даны варианты решения, пробую через паскаль написать программу ответ 7 , но такого нет. Где я допустил ошибку?

program repeat;
var
k,x1,x2,z: integer; 
begin
k := 1; 
x1:=1;
x2:=1;
repeat 
z:=x1+x2;
x2:=x1;
x1:=z;
k:=k+1;
until k>6; 
write(k, ' '); 
end.

Решение задачи: «Программа по блок-схеме»

textual
                            Листинг программы 
                        
                            write(z);

Оцени полезность:

11 голосов , оценка 4.091 из 5

Похожие ответы