Срочно!! Паскаль!! Напишите программу которая определяет является ли заданное натуральное числом квадратом некоторого натурального числа

varn, x: longint;beginreadln(n);x := round(sqrt(n));if x * x = n thenwriteln('YES')elsewriteln('NO');end.