Цитата(Lapp)
Я засабмитил туда этот вариант (с longint) - и все прошло...
Очень, кстати, странно... Смотри:
Цитата(RTL.pdf)
29.9.479 sqr
Synopsis: Calculate the square of a value.
Declaration: function sqr(l: LongInt) : LongInt
function sqr(l: Int64) : Int64
function sqr(l: QWord) : QWord
function sqr(d: ValReal) : ValReal
Visibility: default
Description: Sqr returns the square of its argument X.
Errors: None.
То есть, вызывается версия , получающая и возвращающая LongInt... Смотрим дальше:
Цитата(REF.pdf)
Table 3.2: Predefined integer types
Type Range Size in bytes
Byte 0 .. 255 1
Shortint -128 .. 127 1
Smallint -32768 .. 32767 2
Word 0 .. 65535 2
Integer either smallint, longint or int64 size 2,4 or 8
Cardinal either word, longword or qword size 2,4 or 8
Longint -2147483648 .. 2147483647 4
Longword 0..4294967295 4
Int64 -9223372036854775808 .. 9223372036854775807 8
QWord 0 .. 18446744073709551615 8
, из чего следует, что при R > 46340 результат в LongInt не поместится... Сбой налицо... Возможно, тебе просто повезло, и значения больше приведенного мной не передавались для теста твоей программе...
После смены типа на Int64 программа будет работать с любыми заявленными в задании значениями...