СОСТАВИТЬ ФОРМУЛУ И ТАБЛИЦУ ИСТИННОСТИ

Есть вопросы по решению?

Вот код:

var ababab,bababa,sususumamama:Integer;
begin
WriteLn('Перед вами программа для нахождения суммы всех натуральных чисел заданного диапазона');
введите наименшее число диапазона ');
ReadLn(ababab);
Write('А теперь введите наибольшее число диапазона ');
ReadLn(bababa);
//оформляем ввод данных
sususumamama:=0;//присваиваем сумме значение 0
while ababab<=bababa do
begin
sususumamama:=sususumamama+ababab;//увеличиваем сумму на число а
ababab:=ababab+1;//увеличиваем число а на 1
end;
Write('Сумма всех чисел диапазона равна '+sususumamama);
//выводим сумму чисел
end.

var a:array [1..5] of integer;

i,max,k,j: integer;

begin

Write ('Введите элементы массива: ');

for i:= 1 to 5 do  

read (a[i]);

max:=a[1];

for i:= 1 to 5 do  

if a[i]>max then max:=a[i];

Writeln ('Максимальный элемент: ',max);

Writeln ('Элементы с непарными индексами: ');

for i:= 1 to 5 do  

if i mod 2 <>0 then write (a[i], ' ');

for i:= 1 to 4 do

for j:= i+1 to 5 do  

if a[i]<a[j] then  

 begin

 k:=a[i];

 a[i]:=a[j];

 a[j]:=k;

 end;

 

 writeln();

 writeln ('Массив, упорядоченный в порядке убывания: ');

for i:= 1 to 5 do  

write(a[i], ' ');

end.

Объяснение: