записать функцию которая проверяет является ли число квадратом чётного паскаль​

var a:integer;

function Name1(a:integer):integer;

var i,c: integer;

begin

i:=0;

c:=2;

 while i < 1 do

 begin

   if c*c=a then

     writeln('Число '+a+' является квадратом четного числа '+c);      

   if c*c<a then

     c:=c+2

   else

    i:=1;

   if c*c>a then begin

    writeln('Число '+a+' не является квадратом четных чисел');    

    i:=1;

    end;

 end;

end;

begin

 writeln('Введите число:');

 readln(a);

 Name1(a);

end.

Объяснение: