Question

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

Answer 1

1. uses Math;
2. var
3.    inputNumber: integer;
4. begin
5.    Readln(inputNumber);
6.    
7.    if Sqr(inputNumber) > 1000 then Writeln(true)
8.    else Writeln(false);
9. end.