<span>var a,b,c,d:integer
begin
readln(a,b,c);
d:=a;
a:=b;
b:=c;
c:=d;
writeln(a,' ',b,' ',c);
end.
</span>
Красив тот, кто красиво поступает.
Вроде так
var a,b,n:real;
begin
writeln('vvedite chislo');
readln(a);
b=1;
n=b;
while b<a do
begin
if (a mod b = 0) then n:=n*b;
b:=b+2;
end;
writeln('n = ',n);
readln;
end.