Ввести целое число N . Если N > 0 , то составить программу наглядного вычисления факториала, выводя в каждой строке кроме самого значения факториала поочередно столько раз символы «>» и «<», сколько сомножителей в факториале.  - Pascal(Паскаль)

Например, для N = 5:
1 >
2 <<
6 >>>
24 <<<<
120 >>>>>

program ABC;
var i,k,N:integer;
f:LongInt;
begin
writeLn('Введите N');
readLn(N);
f:=1;
for i:=1 to N do
begin
f:=f*i;
write(f);
for k:=1 to i do
if i mod 2 <> 0 then
write('>')
else
write('<');
writeLn;
end;
end.