program uzduotis_10;
var y:integer;
begin
  WriteLn('Iveskite Y reiksme');
  Read(y);
  Writeln(2*(y+sqrt((y*y)+(4*y)+3)):1:0);
  Writeln(3*(sqrt(y+1)+sqrt(y+3)-2):1:0);
  if 2*(y+sqrt((y*y)+(4*y)+3))=3*(sqrt(y+1)+sqrt(y+3)-2) then writeln('Lygtis teisinga') else writeln('Lygtis neteisinga');
  Readln;
  readln;
end.