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

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

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.