exit code 215 (free pascal 3.2.0)

[010010001]

var
n,i,a:integer;
factorial:longint;
begin
writeln ('Введите N');
readln (n);
if n mod 2 = 0 then
a:=n-2
else
a:=n-1;
factorial:=1;
for i:=1 to a do
factorial:=factorial*a;
while a<n do
begin;
factorial:=factorial*a
end;
writeln ('factorial=',factorial);
end.



Программа должна рассчитывать произведение натуральных четных чисел, не
превышающих N (вводимого числа). Но при вводе значения больше двух выдаёт ошибку ( при значении меньше - не выдаёт результат и виснет ).

[Aleksandr H.]

Ето чо за дичь?

for i:=1 to a do factorial:=factorial*a;
while a<n do
begin;
factorial:=factorial*a
end;

[digitalis]

Неплохо бы научиться форматирование делать отступами и тэги CODE употреблять (это к ТС).