Описать функцию square(k) логического типа, возвращающую true, если целый параметр k(> 0) является квадратом некоторого числа, и false в противном случае. паскаль

Var k: integer; function square(k: integer): boolean; begin       if sqr(trunc(sqrt( = k   {проверяем, является ли квадрат округлённого квадратного корня самим числом}       then           square : = true       else           square : = false; end; begin       read(k);       writeln(square(k)); end.

1.проверяем  имеется ли делимое число. если нет ,то подставить в выражение делимое число. 2. проверить не является ли делимое число равно нулю. если является то деление невозможно. 3. проверить имеется ли делитель.    если нет ,то подставить в выражение делитель.  если делитель равен нулю, частное этих двух чисел ровно нулю. 4. разделить делимое число на делитель. 5. получить ответ. если ответ является иррациональным числом то округлить его до целого или до сотых или до десятых.

Var a,b,c,d: integer; begin writeln('введите первое число'); readln(a); writeln('введите второе число'); readln(b); c: =a; d: =b; if a< b then while b< > 1 do begin a: =c*a; b: =b-1; writeln(a); end else while a< > 1 do beginb: =d*b; a: =a-1; writeln(b); end; end.1. запрашиваем первое число2. получаем первое число3. запрашиваем второе число 4. получаем второе число 5.  приравниваем первое число   некоторой переменной. 6.  приравниваем второе число   некоторой переменной. 7. если первое число больше второго то вычитаем из второго числа 1 и при  каждом вычитании приравниваем первое число к произведению  первого числа на переменную к которой его приравняли.  выводим результат на экран. 8. если второе число больше первого то вычитаем из первого числа 1 и при  каждом вычитании приравниваем второе число к произведению  второго числа на переменную к которой его приравняли.    выводим результат на экран.