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

На 2-ой фотке, 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 agt;x then
       if alt;y then S1:=S1+a;
    a:=a+d;
    End;
WriteLn('S = ',S);
WriteLn('S1 = ',S1);
End.