Делители числа и НОД. Решите две задачки в Pascal и c++(

Делители:

var i,n:integer;

begin

write('Введите число N-');

readln(n);

writeln('В порядке возрастания:');

for i:=1 to n do

if n mod i=0 then write (i,' ');

writeln();

writeln('В порядке убывания:');

for i:=n downto 1 do

if n mod i=0 then write(i,' ')

end.

НОД(через метод Евклида):

var a,b:integer;

begin

writeln('Введите числа(через пробел): ');

readln(a,b);

if (a=0) or (b=0) then

write('НОД = ',абс(a-b)) else begin

while (alt;gt;b) do

if agt;b then  

a:=a-b else

b:=b-a;

write('НОД = ',a);

end;

end.