Лабораторныя по Циклам :( Турбо Паскаль

[bagfinder]

Привет всем. У меня возникли проблемы с одним из вариантов. Вернее, я даже не представляю как его делать, т.к. не слушал препода на матане

Текст задания я вложил в аттач (оно состоит из 2х частей).
Если хотите взглянуть на другие варианты или на требования, то в архиве тоже все есть.

Помогите пожалуйста разобраться. До сдачи не так много времени...

[aks]

For i:=1 to N do
Begin
D:=a+b;
k:=k+1;
U:=a+X*i/b+x*i;
Y:=Y+U;
end;

вродибы так
код не проверял

[alex_fcsm]

var a,b,x,s:real;
    i,n,m:integer;
    
    
begin
writeln('Input a,b,x');
readln(a,b,x);
writeln('n,m');
readln(n,m);
s:=0;
for i:=m to n do
  if i mod 2 =0 then s:=s+(a+x*I)/(b+x*I)
     else  s:=s-(a+x*I)/(b+x*I);
s:=a+b*s;
writeln(s);
end.

const eps=0.00001;
      pi2=1.5707;
var y0,y1,yn:real;

begin
readln(y0,y1);
yn:=0.352*y1+cos(pi2+y0);
while abs(yn-y1)>eps do
 begin
   y0:=y1;
   y1:=yn;
   yn:=0.352*y1+cos(pi2+y0);
 end;
writeln(yn);
end.

[bagfinder]

aks, alex_fcsm спасибо!
просьба не удалять пока тему

[bagfinder]

Понадобились блок схемы. Пока нарисовал для первой программы (в аттаче).

В данном случае нужен блок Ввода и контроля? Если да, то в каком виде он должен быть, если вне цикла нету структуры if/then?
И правильно ли я нарисовал ВС?
Спасибо.

в большем разрешении