Переделать в паскале в формат 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.