Турбо-паскаль. Пожалуйста, напишите программный код!...=)

Не по-мужски это - отказать в помощи нуждающейся девушке
Вот код:

program pr1;

function NOD(v1, v2: integer): integer;
begin
if (v2 = 0) then
begin
NOD := v1;
Exit;
end;
if (v2 > v1) then
NOD := NOD(v2, v1)
else begin
NOD := NOD(v2, v1 mod v2);
end;
end;

var
p, q, i: integer;
begin
write('P: ');
readln(p);
write('Q: ');
readln(q);
for i := 1 to q do
if ((q mod i = 0) and (NOD(p, i) = 1)) then
writeln(q, ' has delitel ', i, ' vzaimno prostoy with ', p);
readln;
end.

Слушай девочка, я смотрю у тебя тут претензий куча? Не пишет никто "программный код"? Ой беда какая! А сама ты что сделала чтобы тебе тут написали? Правильно, НИ-ЧЕ-ГО!

Так вот, дорогая, если не нужен тебе паскаль, если не понимаешь ты его, если не хочешь понять - выход есть! ПЛАТИ! И все.
Стоимость твоей задачи я оцениваю в 5$. Стучи в агент, если решишься...

ну так не занимайтесь тем, что не прнимаете.
или лучше занимайтесь тем, что понимаете :)

у нас раньше интернета не было и телефонов не было и паскаль дрочили сами.... думайте, думайте.. совсем обленились

есть невысказанная договоренность не решать ламерам задачки из контрольных работ. нечего плодить ущербных программистов. если необходимо сама разберешься...

Один куй. она небудет её писать сама. А запрягет кого нить.