Помогите, в одном тесте пишет: "Превышено максимальное время". Задача: Вывести все простые числа от M до N включительно. Входные данные В первой строке находятся разделённые пробелом M и N. 2

//Прости, но я не понимаю что должен делать код выше, напишу свой.
//Pascal ABC. NET v3.0
var m,n:real;
i:integer;
begin
Read(m,n);
if abs(m-n) begin;
  write(Absent);
  exit;
 end;
for i:=trunc(m)+1 to trunc(n) do
writeln(i);
end.