Паскаль. Задача.

[m.k]

1. дано число n, найти все делители числа n.
2. найти числа у которых сумма 2-х последних равна произведению 2-х первых. (от 1000 до 9999)

Заранее спасибо

[Qiker]

№1

program kk;
var n,k:integer;
begin
read(n);
 write('deliteli=');
for k:=1 to n do begin
if n mod k=0 then write(k,' ');
end;
end.

---------- Добавлено в 14:30 ---------- Предыдущее сообщение было написано в 14:00 ----------

№2

program hh;
var a:integer;
    j,d,m,g,f,h,k,n,i:integer;
begin
a:=1000;
repeat
begin
n:=a div 100;
k:=n div 10;
m:=n mod 10;
h:=a mod 100;
g:=h div 10;
f:=h mod 10;
end;
j:=g+f;
d:=m*k;
if j=d then write(a,' ');
inc(a)
until a=9999;
end.