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

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 составное