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

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