Разложить число на сумму простых чисел [Паскаль]

[Pascal.t]

У нас есть число,
нам нужно представить его как суму простых чисел
Пример
__________
|8 | 5+3|

[rubius2008]

проверка на простоту числа

p:=false;
for i:=2 to n div 2 do if n mod i=0 then p:=true;

Если сделать до конца прогу то за денежку могу, ася 600-927-970

[Pascal.t]

Сообщение от rubius2008

проверка на простоту числа

p:=false;
for i:=2 to n div 2 do if n mod i=0 then p:=true;

Если сделать до конца прогу то за денежку могу, ася 600-927-970

Извини, но денежку дать не могу, самому надо
но веть быстрее так

p:=false;
for i:=2 to round(sqrt(n))+1 do if n mod i=0 then p:=true;