Решите информатику анализ схем.

procedure recursiveprime(num:integer);

var

i:integer;

begin

{тупая проверка *числа* на простоту - пытаемся поделить на все числа от 2 до *числа*/2)

i:=2;

while i<(num div 2) and (num mod i <> 0) do inc(i)

if i=num div 2 then println(num,"- простое!');

if num<60 then recursiveprime(num+1);

end;

begin

recursiveprime(4);

end.

Объяснение:

ну как-то так.. паскаля под рукой нет, лет 7 назад последний раз трогал дельфи

рекурсивная процедура которая вызывает саму себя со следующим числом если переданое ему число меньше 60

проверка на простоту - пытаемся поделить на все числа от 2 до половины проверяемого числа и проверяем остатки.

надеюсь мысль понятна

var
m,n,i,j:integer;
bool:boolean;

begin
readln(n,m); //читаем Н и М
for i:=n to m do begin  // От Н до М выполняем цикл
bool:=false;  // Обнуляем переменную для каждой итерации
 
for j:=2 to i-1 do
begin  // Проверяем, делится ли число на числа, которые находятся в промежутку от 2 до это число -1   

if (i mod j=0) then bool:=true; //если делится, тогда bool:=true  
end;

if (bool = false) then write(i,' ');  //если bool = false, значит это число делится только на себя и на 1, а значит оно простое и выводим это число

end;

end.