Составить программу в паскале по блок схеме срочно нужно, помогите пжлст

Question

Составить программу в паскале по блок схеме
срочно нужно, помогите пжлст

---

---

Comments

На второй фотке, первое действие - это последнее на первой фотке?

---

да

---

Можно увидеть задачку, к которой эта блок-схема?

---

Или просто блок-схему сказали перевести?))

Answer 1

Var
i,N:integer;
a,d,S,x,y,S1:real;
Begin
Write('N = ');ReadLn(N);
Write('x = ');ReadLn(x);
Write('y = ');ReadLn(y);
S:=0;
S1:=0;
a:=5;
d:=1.7;
For i:= 1 to N do
    Begin
    S:=S+a;
    if a>x then
       if a    a:=a+d;
    End;
WriteLn('S = ',S);
WriteLn('S1 = ',S1);
End.

Comments

спасибо