Определить, является ли квадрат введённого числа больше 1000. паскаль

uses Math;var    inputNumber: integer;begin    Readln(inputNumber);        if Sqr(inputNumber) > 1000 then Writeln(true)    else Writeln(false);end.