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

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