Question

помогите с паскалем пожалуйста, даю 70 баллов
Нужно составить программы​

Answer 1

Задание 1:

• var sum:integer;
• begin
• for var i := 5 to 35 do
• if i mod 2 = 1 then sum := sum + sqr(i);
• write(sum);
• end.

Задание 2:

• var  p: BigInteger = 1;
• begin
• for var i := 14 to 42 do
• if i mod 2 = 0 then p := p * sqr(i);
• write(p);
• end.

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