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

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

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