Задание. Заполнить трассировочную таблицу. f1 = 1; f2 = 1; n = 10; i = 0

while i
sum = f1 + f2

f1 = f2

f2 = sum

i=i+1

print(f2)

Начальные значения: f1 = f2=1, i = 0, n=10

есть массив a из n чисел, к каждому числу массива жарасхан должен применить лишь одну операции  

1) добавить к числу один

2) отнять от числа один

3) добавить к числу ноль

к каждому элементу массива нужно применить одну их трех операции так, чтоы после применения операций ко всем элементам массива, количество одинаковых чисел в массиве стало максимальным.  

формат входных данных:

в первой строке входных данных дано одно целое число n - размер массива. во второй строке входных данных даны элемента массива a;

формат выходных данных:  

выведите одно целое число - максимальное количество одинаковых чисел в массиве после применения операций.

пример:

входные данные:  

7

3 1 4 1 5 9 2

выходные данные:  

4

замечание: в первом тесте можно изменить массив в такой вид: 2,2,3,2,6,9,2

вот код:

var a,b,c,d,e,min,max: integer;

begin

read (a,b,c,d,e);

if (a> b) and (a> c) and (a> d) and (a> e) then max: = a;

if (b> a) and (b> e) and (b> c) and (b> d) then max: = b;

if (c> a) and (c> b) and (c> d) and (c> e) then max: = c;

if (d> a) and (d> c) and (d> b) and (d> e) then max: = d;

if (e> b) and (e> a) and (e> d) and (e> c) then max: = e;

if (a< b) and (a< c) and (a< d) and (a< e) then min: = a;

if (b< a) and (b< e) and (b< c) and (b< d) then min= b;

if (c< a) and (c< b) and (c< d) and (c< e) then min: = c;

if (d< a) and (d< c) and (d< b) and (d< e) then min: = d;

if (e< b) and (e< a) and (e< d) and (e< c) then min: = e;

writeln ('минимальное число: ',min);

writeln ('максимальное число: ',max);

end.