Напишите программу, вычисляющую сумму квадратов простых чисел в промежутке (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.