Напишите процедуру которая определяет верно ли что переданное ей число - простое. (Используйте изменяемые параметры)

СПАСИБО БОЛЬШОЕ

Пожалуйста

:3

procedure prime(n: integer);var i: integer;begin  for i := 2 to round(sqrt(n)) do    if n mod i = 0 then    begin      writeln('Число ', n, ' составное');      exit    end;  writeln('Число ', n, ' простое')end;begin  prime(3);  prime(8);  prime(23);  prime(35);end.Вывод:Число 3 простоеЧисло 8 составноеЧисло 23 простоеЧисло 35 составное