ПАСКАЛЬ АБС.НЕТ составьте программу вычисления суммы квадратов ПРОСТЫХ чисел из промежутка [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.