Напечатать минимальное четное число, большее введенного N, которое является квадратом. (Pascal)

// PascalABC.NET 3.1, сборка 1201 от 18.03.2016 begin   var n:=ReadInteger('n=');   var m:=Trunc(sqrt(n));   if Odd(m) then Inc(m);   while sqr(m)<=n do m+=2;   Writeln(sqr(m),' = ',m,' * ',m) end. Тестовое решение: n= 4563242 4571044 = 2138 * 2138