составьте программу паскаль для нахождениявсех счастливых автобусных билетов чтобы из низ извлекался квадратный корень

Программа проверяет, извлекается ли из введеного числа корень (без дробной части)

program bilet;
var
a:longint;
b:real;
begin
writeln('vvrdite nomer');
readln(a);
b:=sqrt(a);
if b*b=a then writeln('schastlivuy')
else writeln('uvyu');
readln;
end.