program tinh_binh_phuong_so_chan;

var
  a, b: integer;

begin
  writeln('Nhap vao mot so chan: ');
  readln(a);
  
  if a mod 2 = 0 then // kiem tra xem a co phai la so chan khong
  begin
    b := a * a;
    writeln('Binh phuong cua ', a, ' la ', b);
  end
  else
  begin
    writeln(a, ' khong phai la so chan.');
  end;
  
  readln; // dung chuong trinh de xem ket qua
end.