Натуральное число, на которое заданное число делится без остатка:

паскаль

var a,i: integer;

begin

readln(a);

writeln;

for i: =1 to a do

if (a mod i=0) then writeln (i);

end.

1.

var n: integer; begin  cls;   for n: =1 to 10 do begin    write('n=',sqr(n)+5,' ');   end; end.

решить на паскале?

b) 9 лет

2020=4

2011=4