Разработать подпрограмму, которая в качестве аргумента получает целое число и проверяет, является ли оно простым. Используя подпрограмму вывести на экран все простые числа из промежутка целых чисел, определенного пользователем. 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

end

end;

var

a, b, i:longint;

begin

Write ('Введите начало и конец интервала: ');

Readln (a, b);

for i:=a to b do

if IsPrime (i) then Write (i,' ');

Writeln

end.