Составить алгоритм и программу обработки членов числовой последователь

[Zorch]

Помогите разобраться с этим заданием.

[Stilet]

А чем помочь-то?

[Zorch]

Сообщение от Stilet

А чем помочь-то?

желательно программным кодом или идеями, как это все написать)

не могу понять эту строку
p:=min(a,b,max(c,d))
получается, что P - это наименьшее из трех чисел:
1 - a(-15.3)
2 - b(1.3)
3 - наибольшее из c(-0.4) и d(0.9), c<d
a<b<d
значит P:=a
я правильно понимаю?

P:=A;
if (B<P) then P:=B;
if (C>D) then
if (C<P) then P:=C else
if (D<P) then P:=D;
writeln('P=',P:5:2);

[Zorch]

Вроде как разобрался, но есть некоторые, непонятные мне, моменты:

uses crt;
var
a,b,c,d,p,x,x0,h:real;
m,n,k,i:integer;
begin
 clrscr;
 writeln('Введите A,B,C,D,x0,H,M,N');
 read(A,B,C,D,x0,H,M,N);
 P:=A;
 if (B<P) then P:=B;
 if (C>D) then
 if (C<P) then P:=C else
 if (D<P) then P:=D;
 writeln('P=',P:5:2);
 for i:=1 to M do
 begin
  x:=x0+(i-1)*H;
  AK:={формула} <=============================================== №2 с картинки
  write('A1=',AK:5:2,' ');
  if AK{четный} then S:=AK else S:=0; <=============================== как проверить четность?
  for k:=2 to N do
  begin
   AK:={формула} <============================================== №1 с картинки
   write('A',k,'=',AK:5:2,' ');
   if AK{четный} then S:=S+AK <===================================== как проверить четность?
  end;
  writeln;
  writeln('Сумма четных членов S=',S:5:2,' при P=',P:5:2);
 end;
End.

Помогите привести последовательность (красная кромка) к такому же результату, как в образце (синяя кромка)

[Zorch]

И тишина =((