Type mas=array of integer;
procedure revers(var a:mas; i:integer);
begin
write(a[i],' ');
if i>0 then revers(a,i-1);
end;
var a:mas;
i,n:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do
read(a[i]);
revers(a,n-1);
end
{Инициализировать переменные и организовать ввод-вывод, я уверен, вы сможете сами}
...
If ((a+b+c) mod 2 <> 0) then write('Сумма нечетная');
...
Третий ответ, если составить цикл и ветвление то он пройдет все клетки
Ну алгоритм это последовательность действий=> решение..