Гарантируется правильная работа программы при вводе натуральных чисел, не превышающих 9 223 372 030 926 249 001
var i,n,m:int64; begin Write('Вводите: '); Read(m); n:=0; for i:=1 to m div 2 do begin n:=n+2*i-1; if (n>=m) then break end; if n=m then Writeln('Кв.корень(',m,')=',i) else Writeln('Кв.корень(',m,') не является целочисленным') end.
явление:гроза,гром,молния,дождь
процесс:рыбалка,охота, футбол