A natural number is entered. Determine if it is a perfect square. Pascal

program zz1;

var i: real; // set a variable of non-integer type

n: integer; // set a variable of integer type

begin

write (‘enter the given number n’); // enter a natural number from the keyboard

read (n);

i: = sqrt (n); // extract the square root of the given number

if frac (i) = 0 // check if the resulting fractional part is equal to zero, then

then writeln (‘Is’) // print one answer

else writeln (‘is not’); // print another answer

end.