Các mom ơi giúp e vs làm pascal ạ c.on các mom trước nha 

#danglam228

program ktscp;

uses
  SysUtils;

function scp(n: integer): boolean;
var
  i: integer;
begin
  i := 0;
  while i * i <= n do
  begin
    if i * i = n then
    begin
      scp := true;
      exit;
    end;
    Inc(i);
  end;
  scp := false;
end;

var
  n: integer;
begin
  Write();
  ReadLn(n);
  if scp(n) then
    WriteLn('True')
  else
    WriteLn('False');
end.