Проверить, что естественное число N является точным квадратом.(Необходимо решить через

Вариант 1 (ответ просто True/False):

var

 n: integer;

begin

 writeln('Проверка, является ли натуральное число N четким квадратом');

 write('Введите естественное число N: ');

 Read(n);

 writeln('Итог: ', (Sqr(Int(Sqrt(n))) = n) and (n gt; 0));

end.

Вариант 2:

var

 n: integer;

begin

 writeln('Проверка, является ли естественное число N точным квадратом');

 write('Введите натуральное число N: ');

 Read(n);

 writeln('Итог: ', n gt; 0 ? Sqr(Int(Sqrt(n))) = n ? 'является' : 'не является' : 'введено число, не являющееся естественным');

end.