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.