)какую структуру будет иметь алгоритм решения следующей ? дано целое положительное число n. если n — четное, то вычислить n! = 1·2··n. если n — нечетное то вычислить сумму : 1 + 2 + .+n.составить программу на паскале

Разветвляющуюся структуру
var n,f,s,i:integer;
begin
write('Введите целое положительное число N= '); readln(n);
f:=1; s:=0;
if n mod 2 =0 
then begin for i:=1 to n do f:=f*i;writeln(n, '!=', f); end
else begin for i:=1 to n do s:=s+i; writeln('S= ', s) end;
end.