составление блок-схемы по уже решенной задаче паскаля For 35

[екатерина к]

ставление блок-схемы по уже решенной задаче паскаля For 35
Дано целое число N (> 2). Последовательность целых чисел АК определяется следующим образом:
A1 = 1, A2 = 2, A3 = 3, AK = AK-1 + AK-2 ? 2*AK-3, K = 4, 5, ... .
Вывести элементы A1, A2, ... , AN. }

 Program Solution;
 Var
 i, N : Integer;
 A1, A2, A3, A : Double;
 Begin
 A1 := 1;
 A2 := 2;
 A3 := 3;
 Write('N = ');
 ReadLn(N);
 If N > 0 Then
 Begin
 For i := 4 To N Do
 Begin
 A := A1 + A2 - 2 * A3;
 A1 := A2;
 A2 := A3;
 A3 := A;
 WriteLn(A:6:3); 
 End;
 End;
 ReadLn;
 End.

прошу срочно помочь!

[Poma][a]

э][, ...
вот
я делал в Visio если что, и расширение там *.vsd

[екатерина к]

не получается открыть( может есть возможность в другом формате выслать? или скорей всего у меня нет такой программы

[Poma][a]

сори за плюсики-минусики) я не художник)

[екатерина к]

вот теперь открыла спасибо тебе огромное,единственное ,в самом низу предпоследний квадрат пустой -так и должно быть?)

[Poma][a]

в самом низу предпоследний квадрат пустой -так и должно быть?)

ага) просто читаем ничего) чтоб пользователю не нажимать запуск программы снова (ну или Alt+F5).