Дан интервал натуральных чисел от N  до М. Определить все простые числа в этом интервале (Паскаль АВС)

Program z1; uses crt; var n,m,kd,i,j,s: integer; begin repeat write('n=');readln(n); Write('m='); readln(m); until (n