program ideone; {$mode objfpc}{$H+} var x: integer; begin writeln('Podaj kwadrat'); Readln(x); if (sqrt(x)*sqrt(x))=x then write(x,' jest liczba kwadratowa') else write('podana liczba calkowita nie jest liczba kwadratowa'); end.