Var x,y:real; Begin Write('x = ');ReadLn(x); Write('y = ');ReadLn(y); if 5*x*x+1=y then WriteLn('Да, может') else WriteLn('Нет не может'); End.