задачу дорешать нужно!

[Юрийй]

Для данного числа N вывести все элементы последовательности: {x:x<N,
x перепендукулярен N}

Program s10;
uses crt;
var i,n,s:integer;
Begin
write('Ввести чилсло N = ');
readln(n);
i:=1;
repeat
s:=2*i-1;
writeln(s:3);
i:=i+1;
until (s>=n-1);
End.

[whatever]

x перепендукулярен N

Это как ?

[vovk]

задачу дорешать нужно!

Кому нужно? мне так не нужно..