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

Var
n,m:integer;
procedure summa(a,b:integer );
var res:integer;
begin
while a<=b do
begin
res:=(a*a)+res;
a:=a+1;
end;
writeln(res);
end;
begin
readln(n,m);
summa(n,m);
end.