как обычно задачи 7-10

program p7;
var n, i: integer;
begin
    WriteLn('Введите число.');
    ReadLn(n);
    for i := 1 to n do
    if n mod i = 0 then WriteLn(i)
end.

==========

program p8;
var n, i: integer;
begin
    i := 1;
    WriteLn('Введите число.');
    ReadLn(n);
    while i <= n do
    begin;
    if n mod i = 0 then
    WriteLn(i);
    i := i + 1;
    end;
end.

==========

program p9;
var n, i: integer;
begin
    for i := 100 to 999 do
    if i mod 7 = 0 then WriteLn(i)
end.

==========

program p10;
var n, i: integer;
begin
    i := 100;
    while i <= 999 do
    begin;
    if i mod 7 = 0 then WriteLn(i);
    i := i+1;
    end;
end.