ПОМОГИТЕ ПЕРЕДЕЛАТЬ ЗАДАЧУ В ПАСКАЛЕ в формат While
Var n,i,k:integer;
begin
k:=2;
write('введите число n');
readln(n);
for i:= 2 to n div 2 do
if n mod i = 0 then
k:=k+1;
writeln(,k);
end.

просто перевод заданного кода

var
    n, i, k: integer;

begin
    k := 2;
    write('введите число n');
    readln(n);
    i := 2;
    
    while i <= n div 2 do
    begin
        if n mod i = 0 then
            k := k + 1;
        i := i + 1;
    end;
    
    writeln(k);
end.