Нужно составить две программки в паскале

Question

1)ввести число, подсчитать, сколько оно имеет делителей. 
2)ввести 2 числа, вывести все их общие делители

Марина Рудакова · Accepted Answer

1. for i := 2 to (n+1) div 2 do if (n div i = 0) then writeln( i ); 
2. for i := 2 to min( n, m ) do if (n div i = 0) and (m div i) then writeln( i );

Валька Чупина · Answer

Застрелите уже Мишу

Екатерина Крушлинская · Answer

var a,i,n:longint; 
begin 
n:=0; readln(a); for i:=1 to n do if a mod i=0 then inc(n); 
writeln(n); readln 
end.

var a,b,i,n:longint; 
begin 
readln(a,b); if a< b then n:=a else n:=b; 
for i:=1 to n do begin if (a mod i=0)and(b mod i=0) then write(i:8); 
writeln; readln 
end.