Напишите программу, вычисляющую сумму квадратов ПРОСТЫХ чисел в промежутке (M;N);

Паскаль:
Uses crt;
var m,n:integer;
begin
readln(m,n);    
m:=m+1;
while m<n do begin  
writeln(m*m); inc(m) end;
end.