Задание 1:

• var
• i: integer;
• p: BigInteger;
• begin
• p := 1;
• i := 2;
• while i < 100 do
• begin
• p := p * i;  
• i := i + 2;
• end;
• write(p);
• end.

Задание 2:

• var i, n, s: integer;
• begin
• read(n);
• i := 1;
• repeat
• s := s + i;
• i := i + 2;
• until i >= n;
• write(s);
• end.

Пример работ: