Помогите написать программы в паскаль, пожалуйста! 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.