Написать программы в паскаль, ! 1.дано число х. найти и вывести на экран все его делители и их сумму. 2. в промежутке от 1 до n вывести все числа, сумма делителей которых равна самому числу.

Program A1;
var x, i, s: integer;
begin
writeln('Введите число x');
readln(x);
s:=0;
for i:= 1 to x do
 if x mod i = 0 then
  begin
    write(i,'  ');
    s:=s+i;
  end;
writeln;
writeln('s=',s);
end.