Помогите с информатикой!!!! Если есть ошибки напишите как правильно Очень нужно!!!

Var   n,k:integer;BeginWrite('n = ');ReadLn(n);k:=3;While (k<=n div 2)and(n mod k <> 0) do      k:=k+2;if n mod k = 0 then WriteLn(k)else WriteLn('У ',n,' нет нечётных делителей, больших 1')End.