Помогите решить в паскале

1)  program Mult(output); begin var k,m: integer; k:=12; m:=1; while(k<800) begin m:=m*k; k:=k+12; end; write(m); end.   2) program EvenNumbers(output); begin n, m, even, i: integer; even:=0; write('Enter number N: '); read(n); writeln(); if n<=0 then exit; write('Enter a number: '); for i:=1 to n do begin read(m); writeln(); if i