масив

[[Te[M]ka]]

1) Дано число n. Получить все его натуральные делители.

Var n,k,i:integer;
a:array [1..72] of byte;
begin
writeln ('Vvedite n');
readln(n);
k:=0;
for i:=1 to n do
if n mod i=0 then
writeln(i:4);
readln;
end.

поправте, а то я что-то тут написал и у меня не фурычит.

[Shift_sk]

да вроде работат)только массив А не надо)

[Shift_sk]

напомни плиз что такое натуральные делетили?больше 0?

[[Te[M]ka]]

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

[Shift_sk]

ну массив явно лишний...

[Shift_sk]

k:=0; лишнее

[[Te[M]ka]]

Эту задачу как бэ надо через масив сделать по заданию.

[Shift_sk]

Var n,i:integer;
begin
writeln ('Vvedite n');
readln(n);
for i:=1 to n do
if n mod i=0 then
write(i,' ');
end.

вот я доработал твое)

[Shift_sk]

а кинь сам тест задания полный!

[[Te[M]ka]]

Там мне от руки написала преподователь задачи. Я еще тему сделал там на файлы задача. Помогите с ней тоже. Тему я новую создал. Код я свой выложил так-то. Но мне сказали что в нем тоже имеются недочеты.
Я могу потом вам для интереса выложить задания, которые нам в вузе дают. В универе скопирую. Много интересного есть.