с паскалем Нужно составить программы с паскалем Нужно составить программы​ ">

Задание 1:

var sum:integer; beginfor var i := 5 to 35 doif 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.

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