Разработать подпрограмму, которая в качестве аргумента получает целое число и проверяет, является ли оно простым. Используя подпрограмму вывести на экран все простые числа из промежутка целых чисел, определенного пользователем. Pascal ABC

function IsPrime(n:longint):boolean;var  found:boolean;  p:longint;begin  if n<4 then IsPrime:=True  else begin    found:=(n mod 2=0);    p:=3;    while (not found) and (sqr(p)<=n) do      begin found:=(n mod p=0); p+=2 end;    IsPrime:=not found    endend;var  a,b,i:longint;begin  Write('Введите начало и конец интервала: ');  Readln(a,b);  for i:=a to b do    if IsPrime(i) then Write(i,' ');  Writelnend.