Напишите программу вычисления суммы квадратов простых чисел, лежащих в интервале (M,N)

var
n,m:integer;
 
function summ(m,n:integer):integer;
var i:byte;
s:integer;
begin
for i:=m to n do
  s:=s+SQR(i);
summ:=s;
end;
 
begin
writeln('m=');
read(m);
writeln('n=');
read(n);
writeln('Сумма=',summ(m,n));
 
end.

function prime(n: integer): boolean;
var i: integer;
begin
if n < 2
  then prime := false
  else begin
    prime := true;
    for i := 2 to trunc(sqrt(n)) do
    if n mod i = 0
      then begin
        prime := false;
        break
      end
  end
end;
 
var m, n, s, t: integer;
 
begin
  write('m = ');
  readln(m);
  write('n = ');
  readln(n);
  if m > n
    then begin
      t := m;
      m := n;
      n := t
    end;
  s := 0;
  for t := m to n do if prime(t) then s := s + t * t;
  writeln('s = ', s);
  readln
end.

function p4(x:integer):integer;
  var i,k:integer;
begin  
  k:=0;
  for i:=1 to x div 2 do 
   if x mod i =0 then k:=k+1;
  if k=1 then p4:=x
  else p4:=0;
end;
function zd(a:integer; b:integer):integer;
  var i,s:integer;
begin
  s:=0;
  for i:=a to b do 
   s:=s+(p4(i)*p4(i));
  zd:=s;
end;
var M,N:integer;
begin
readln(M,N);
writeln(zd(M,N));
end.