составьте программу либо через функцию или можно через процедуру:
1)Вычислить сумму квадратов простых чисел,лежащих в интервале (M,N).
2)Вычислить сумму простых не превосходящих заданного числа N.

2-я задача varn:integer;procedure summa(a:integer );var i,res:integer;begini:=1;while i<=a dobeginres:=res+i;i:=i+1;end;writeln(res);end;beginreadln(n);summa(n);end.