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