Паскаль абс.нет составьте программу вычисления суммы квадратов простых чисел из промежутка [m; n]

Var
 x,d,m,n,s:integer;
begin
 read(m,n);
 for x := m to n do
  begin
  d := 2;
  while (d < x) and (x mod d <> 0) do
    d := d + 1;
  if x = d then
    s := s + sqr(x);
  end;
 write(s)
end.